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3.6.5  KALMAN  FILTER 
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3.6.5. 1  KALMAN_FILTER_COMMON_PARTS  TLCSC  (CATALOG  #P159-0) 

This  part,  vhich  is  designed  as  an  Ada  package,  contains  specifications  for  all 
CAMP  parts  vhich  can  be  used  to  implement  a  Kalman  Filter  regardless  of  the 
type  of  H  matrix  used. 


3.6.5. 1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
TLCSC: 


|  Name 

Requirements  Allocation  | 

State  Transition  And  Process  Noise  Matrices 

R145 

Manager 

Error  Covariance  Matrix  Manager 

R146 

S  t  a  t  e_Trans  i  t  i  on_Ma  t  r  i  x_Mange  r 

R148 

3.6.5. 1.2  INPUT/OUTPUT 
None. 

3. 6. 5. 1.3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.6.5. 1.4  LOCAL  ENTITIES 
None. 

4 

3.6.5. 1.5  INTERRUPTS 


None. 

3.6.5. 1.6  TIMING  AND  SEQUENCING 
None. 


3. 6. 5. 1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3.6.5. 1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

Type 

Description  | 

State  Transition 

generic 

Manages  the  State  Transition  (Phi)  and 

And_Frocess_Noise_ 
Matrices^ Manager 

package 

Process  Noise  (Q)  Matrices 

Error  Covariance_ 
MatrIx_Manager 

generic 

package 

Manages  the  Error  Covariance  (P) 

Matrix 

State  Transition_ 
MatrTx_Manager 

generic 

package 

Manages  the  State  Transition  (Phi) 

Matrix 

3. 6. 5. 1.9  PART  DESIGN 

3. 6. 5. 1.9.1  STATE_TRANSITION_AND_PROCESS_NOISE_MATRICES_MANAGER  (CATALOG  #P160-0) 

This  LLCSC  is  a  generic  package  which  manages  the  State  Transition  (Phi)  and 
Process  Noise  (Q)  matrices.  It  consists  of  an  Initialize  procedure,  a 
Propagation  function,  and  functions  which  return  the  stored  value  of  each  of 
the  two  matrices. 


3. 6. 5. 1.9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R145. 


3. 6. 5. 1.9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1 

Type 

1 

Description 

1 

Time  Intervals 

1 

floating 

1 

Type  for  the  delta  time  variable 

1 

1 

point 

1 

1 

Phi  Matrices 

1 

private 

1 

Data  type  of  N  x  N  Phi  Matrix 

1 

Integrated  F  Matrices 

1 

private 

1 

Data  type  of  N  x  N  Matrix  for 

1 

1 

1 

F  integration 

1 

Integrated  Q  Matrices 

1 

private 

1 

Data  type  of  N  x  N  Matrix  for 

1 

1 

Q  integration 

QMatrices 

1 

private 

1 

Data  type  of  N  x  N  Q  Matrix 

1 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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Name 

I  Type 

Add_To_Ident i ty 

procedure 

Set  To  Identity 

function 

Matrix 

SetToZeroMatrix 

function 

ABATranspose 

function 

n*n 

function 

«*•« 

function 

t!  +  !» 

function 

Description 


Adds  the  identity  matrix  to  an 
Integrated_F_Matrices 
Sets  a  Phi  Matrices  type  matrix  to 
the  identity  matrix 
Sets  a  Q_Matrices  type  matrix  to  the 
zero  matrix 

Multiplies  a  Phi  Matrices  type  matrix  by 
the  transpose  oT  a  Q_Matrices  type 
matrix  yielding  a  Q_Matrices  type 
matrix 

Multiplies  a  Integrated  F  Matrix  by 
a  Time  Interval  yielding  a  Integrated 
Q  Matrix 

Multiplies  a  Integrated  F  Matrix  by  a 
Phi  Matrix  yielding  a  Phi  Matrix 
Adds  a  Q  Matrix  to  an  Integrated  Q 
Marix  yielding  a  Q  Matrix 


3. 6. 5. 1.9. 1.3  LOCAL  ENTITIES 
Data  structures: 

•  This  LLCSC  stores  the  State  Transition  Matrix  and  the  Propagated  Process  Noise 
Matrix. 


3. 6. 5. 1.9. 1.4  INTERRUPTS 


None. 


3. 6. 5.1. 9.1.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Kalman_Filter_Common_Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic  DataJTypes; 


package  BDT  renames  Basic_Data_Types; 

package  KFDT  renames  Kalman_Filter_Data_Types; 
package  KFCommon  renames  Kalman~Filter~Common_Parts; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  DataJTypes 

(State_lndlces  =>  State_Indices, 

Measurement_Indices  =>  Measurement  Indices, 
Intervals  =>  BDT. Seconds!; 

use  KDT; 


| 

I 
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package  Ph i _And_Q_Manage r  is  new 

KFCommon.State_Transition_And  Process_Noise_Matrices 
(Time  Interval  -«>  SDT. Seconds, 

Phi_Hatrices  •>  KDT. 

N_By_N_S  t  a  t  i  cal  ly_Spar  s  e_Ma  t  r  i  ces , 
Integrated_F_Matrices  «>_KDT. 

N_By  N  Dynamically_Sparse_Matrices, 
In  t egra  t ed_Q_Ma  trices  «>~KDT  .  R_By_N .  Di  agonal_Ma  trices, 
Q_Matrices”  «>  KDT. N~By~N_Symmetric. Matrices); 

begin 
•  •  • 

Phi_And_Q_Manager. Initialize; 

Phi_And_Q_Manager. Propagate  (Integrated_F  *>  My_Integrated_F, 

Q  ->  My  Q, 

Dt  «>  Delta  Time); 

My_Propagated_Phi  »>  Phi_And_Q_Manager .  Propagated_Fhi ; 


3. 6. 5. 1.9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 5. 1.9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 

Type 

Initialize 

procedure 

Propagate 

procedure 

Get_Current 

procedure 

Propagated_Phi 

function 

Description 


Initializes  Phi  matrix  to  Identity 
matrix  and  Q  matrix  to  zero 
matrix 

Propagates  the  Phi  and  Q  matrices 
across  time 

Returns  the  current  value  of  the 
Propagated  Phi  and  Propagated  Q 
matrices  and  then  resets  them 

Returns  the  current  value  of  the 
Propagated  Phi  matrix 


3.6.5. 1.9. 1.8  PART  DESIGN 


None. 


3. 6. 5. 1.9. 2  KALMAN  FILTER_COMMON_PARTS . ERR0R_C0VARI ANCE  MATRIX  MANAGER  (CATALOG 
#P161-0) 

This  LLCSC  is  a  generic  package  which  manages  the  Error  Covariance  Matrix;  it 
consists  of  an  Initialize  procedure,  a  Propagation  procedure,  and  a  P  function, 
which  returns  the  current  Error  Covariance  matrix  value 
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3. 6. 5. 1.9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R146. 

3. 6. 5. 1.9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

|  Base  Type 

|  Description 

1 

| Phi  Matrices 

i  ~ 

(private 

(Data  type  of  N  x  N 

Phi  matrix 

i 

jP  And  Q  Matrices 

1  "  ‘  " 

| private 

1 

i 

|Data  type  of  N  x  N 

1 

P_and  Q  matrix 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  | 

1  Type  | 

|  Description  | 

|  ABA  Transpose  | 
1  '  ; 
|  "+" 

1  1 

|  function 

j  function  | 

Multiplies  a  Phi  matrix  by  the  transpose  of  a  | 
P  and_Q  matrix  yielding  a  P  and_Q  matrix  j 

Ad3s  two  P_and_Q  matrices  yielding  a  P  and  Q  j 

matrix  | 

3. 6. 5. 1.9. 2. 3  LOCAL  ENTITIES 
Data  structures: 

The  body  of  this  LLCSC  stores  the  Error_Covariance_Matrix. 


3. 6. 5. 1.9. 2. 4  INTERRUPTS 


None. 


3. 6. 5. 1.9. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Common_Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic_Data_Types; 
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package  BDT  renames  Basic_Data_Types ; 

package  KFDT  renames  Kalman_Filter_Data_Type.*!; 
package  KFCommon  renames  Kalman~Filter_Common_Parts; 

•  •  m 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  Datatypes 

(State_IndTces  ~  «>  Siate_Indices, 

Measurement_Indices  ■>  Measurement  Indices, 
Intervals  ~  ->  BDT.SecondsJ; 

use  KDT; 

•  •  • 

package  P_Manager  is  new  KFCommon. Error_Covariance  Matrix  Manager 
(Phi_Matrices  *>  KDT. N_By_N_SymmetrIc. Matrices, 
P_and_Q_Matrices  «>  KDT. 

N_By_N_Dynamically_Sparse_Matrices); 

•  •  • 
begin 
•  •  • 

PManager .Initialize  (Initial_P  *>  My_Initial_P) ; 

•  •  • 

P_Manager. Propagate  (Propagated_Phi  «>  My_Phi, 

Propagated_Q  «>  My_Q); 

My_P  «>  P_Manager.P; 


3. 6. 5. 1.9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 5. 1.9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


I  Name  |  Type  |  Description 


Initialize  (procedure  |  Initializes  P  matrix  to  value 

|  j  supplied  by  the  calling  routine 

Propagate  | procedure  j  Propagates  the  P  matrix  using  the 

j  j  Propagated  Phi  and  Q  matrices 

P  j function  |  Returns  the  current  value  of  the 

j  P  matrix 


3. 6. 5. 1.9. 2. 8  PART  DESIGN 


None. 


CAMP  Software  Top  Level  Design  Document 


Page  277 


3 . 6 . 5 . 1 . 9 . 3  KALMAN_FI LTER_COMMON_PARTS .  STATE_TRANSITION_MATRIX_MANAGER  (CATALOG 

This  LLCSC  is  a  generic  package  which  manages  the  State  Transition  Matrix, 
commonly  known  as  the  Phi  matrix.  It  consists  of  an  Initialization  procedure, 
a  Propagation  function,  and  a  function  which  returns  the  stored  Propagated_Phi 
value. 


3. 6. 5. 1.9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R148. 


3. 6. 5. 1.9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Base  Type 

|  Description 

1 

Integrated  F 

private 

|Data  type  for  N  by  N  matrix  for 

1 

Matrices 

|F  Integration 

I 

1 

PhiMatrices 

private 

|Data  Type  for  N  by  N  Phi  matrix 

1 

1 

1 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  |  Type 


Description 


|Set_To  Identity 
j  Matrix 

j  "*'« 


function  |Sets  a  Phi  matrix  to  the  Identiy 

I 

I 

function  (Multiplies  an  Integrated  F  matrix  by 
|a  Phi  matrix  yielding  a  Phi  matrix 


3. 6. 5. 1.9. 3. 3  LOCAL  ENTITIES 
Data  structures: 

This  package  stores  the  Propagated  Phi  matrix. 
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3. 6. 5. 1.9. 3. 4  INTERRUPTS 


None. 


3. 6. 5. 1.9. 3. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Common_Parts; 
with  Kalman  Filter_Data_Types; 
with  BasicDataTypes ; 

•  •  • 

package  BDT  renames  Basic_Data_Types; 
package  KFDT  renames  Kalmaii_Filter_Data_Types; 
package  KFCommon  renames  Kalman_Filler~Common_Parts; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_IndTces  »>  State_Indices, 

Measurement_Indices  ■>  Measurement  Indices, 
Intervals  »>  BDT.SecondsT; 

use  KDT; 

•  •  • 

package  Phi  Manager  is  new  KFCommon.  State_Transition_Matrix_Manager 
^IntegratedFMatrices 

->  KDT .  N_By_N_S  t  a  t  i  cally_Spar se_Ma  trices; 
Phi_Matrices  ->  KDT.N_By_N~Dynamically_Sparse_Matrices) ; 

•  •  • 
begin 
•  •  • 

PhiManager. Initialize; 

•  •  • 

PhiManager. Propagate  (Phi  *>  My_Phi); 

My_Phi  Phi_Manager.Propagated_Phi; 


3. 6. 5. 1.9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 5. 1.9. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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Name  |  Type  |  Description 


Initialize 

procedure  |  Initializes  Phi  matrix  to  Identity 

j  matrix 

Propagate 

procedure  |  Propagates  the  Phi  matrix 

across  time 

Propagated  Phi 

function  |  Returns  the  current  value  of  the 

j  Propagated  Phi  matrix 

3. 6. 5. 1.9. 3. 8  PART  DESIGN 


None. 
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package  Kalman_Filter_Common_Parts  is 


is  digits  <>; 
is  private; 
is  private; 
is  private; 
is  private; 


pragaa  PAGE; 
generic 

type  Time  Intervals 
type  Phi_fiatrices 
type  Integrated_F_Matrices 
type  Integrated~Q_Mat rices 
type  Q_Matrices 

vith  function  Add_To_Identity 

(Source_Matrix  :  Integrated_F  Matrices  ) 
return  Integrated_F_Matrices  Is  <>; 
vith  procedure  Set  To  Identity  Matrix 

TSource  :  out  Phi_Matrices)  is  <>; 
vith  procedure  Set  To_Zero_Matrix 

7  Source  :  out  Q_Matrices  )  is  <>; 
vith  function  Aba  Transpose 

7A  s  Phi_Matrices; 

B  :  Q_Matrices)  return  Q_Matrices  is  <>; 
vith  function  (Left  :  Integrated_Q  Matrices; 

Right  :  Time_lntervals) 
return  Integrated  Q  Matrices  is  <>; 


vith  function 
vith  function  "+" 


(Left 

Right 

(Left 

Right 


Integrated  F_Matrices; 

Phi_Matrices)  return  Phi_Matrices  is  <>; 
Integrated  Q_Matrices; 

Q_MatricesJ  return  Q_Matrices  is  <>; 


package  State_Transition_And_Process_Noise_Matrices_Manager  is 


procedure  Initialize; 

procedure  Propagate(  Integrated_F  :  in  Integrated_F_Matrices; 

Q  :  in  Integrated_Q  Matrices; 

Dt  :  in  Time  Intervals  ); 


procedure  Get_Current 

(  Propagated_Phi  :  out  PhiMatrices; 
Propagated_Q  :  out  Q_Ma trices  ); 

function  Propagated_Phi  return  Phi_Matrices; 

end  State_Transition_And_Process_Noise_Matrices_Manager; 

pragaa  PAGE; 
generic 

type  Phi_Matrices  is  private; 
type  P  And  Q_Matrices  is  private; 
vith  function  Aba_Transpose  (A  :  Phi_Matrices; 

B  :  P_And_Q_Matrices  ) 
retum~P_And~Q_Matrices  is  <>; 
vith  function  "+"(  Left  :  P_And_Q_Matrices; 

Right  :  P  And~Q  Matrices  ) 
return  P  And_Q_Matrices  is  <>; 
package  Error_Covariance_MatrIx_Mlnager  is 

procedure  Initialize(  Initial_P  :  in  P_And_Q_Ma trices  ); 

procedure  Propagate  (Propagated_Phi  :  in  Phi_Matrices; 


CAMP  Software  Top-Level  Design  Document 


Propagated_Q  s  in  P_And_Q_Matrices  ); 

function  P  return  P_And_Q_Matrices; 

end  Er ror_Covar  iance_Ma  t  r  i  x_Manage  r ; 

pragma  PAGE; 
generic 

type  Integrated_F_Matrices  is  private; 
type  Phi_Matrices  is  private; 

vith  function  (Left  :  Integrated_F  Matrices; 

Right  s  Phi_Matrices7 
return  Phi_Matrices  is  <>; 
with  procedure  Set  To_Identity_Matrix 

^Matrix  s  out  Phi_Matrices)  is  <>; 
package  State_Transition_Matrix_Manager  is 

procedure  Initialize; 

procedure  Propagate(  Integrated_F  :  in  Integrated_F_Matrices  ); 
function  Propagated_Phi  return  Phi_Matrices; 
end  State_Transi tion_Matrix_Manager ; 
end  Kalman  Filter  Common  Parts; 
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3. 6. 5. 2  KALMAN_FILTER_COMPACT_H_PARTS  TLCSC  (CATALOG  #P131-0) 

This  part,  which  is  designed  as  an  Ada  package,  contains  specifications  for  all 
CAMP  parts  which  can  be  used  to  implement  a  Kalman  Filter  when  a  compact 
Measurement  Sensitivity  Matrix  (Compact  H  Matrix)  is  used 


3.6.5. 2.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
Tlcsc: 


Name 

Requirements  Allocation 

Compute  Kalman  Gain 

R149 

Update  Error  Covariance  Matrix 

R150 

Update~State  Vector 

R151 

Sequentially  Update  Covariance_Matrix_and_ 
State  Vector 

R152 

Kalman  Update 

R147 

Update_Error_Covariance_Matrix_General_Form 

R150 

3.6.5. 2. 2  INPUT/OUTPUT 
None. 

3. 6. 5. 2. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 5. 2. 4  LOCAL  ENTITIES 
None. 

3. 6. 5. 2. 5  INTERRUPTS 


None. 

3. 6. 5. 2. 6  TIMING  AND  SEQUENCING 


None. 

3. 6. 5. 2. 7  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  TLCSC. 
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3. 6. 5. 2. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

[  Description  | 

| Compute  Kalman  Gain 

1 

generic 

function 

Computes  the  Kalman  gain  vector 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 

Update_Error_ 

Co var i ance_Ma  t  r i x 

generic 

procedure 

Computes  the  Error  Covariance  Matrix 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 

Update_State_Vector 

generic 

procedure 

Computes  the  State  Vector 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 

Sequen t ially  Upda  te 

E  r  r o  r_Co var i ance_ 
Matrix_And  State” 
Vector 

generic 

package 

Computes  the  updated  Covariance  Matrix, 

P,  and  state  Vector,  X. 

KalmanUpdate 

generic 

package 

Compute  the  updated  State  Vector,  X, 
given  the  old  X  vector,  the  Z  vector, 
the  K  vector,  the  Measurement  Number, 
and  the  Compact  H  array. 

Update_Error_ 

Co va  r i ance_Ma t  r i  x_ 
General_Form 

generic 

procedure 

Computes  the  Error  Covariance  Matrix 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 
The  general  form  of  the  equation  is  used 

3. 6. 5. 2. 9  PART  DESIGN 

3. 6. 5. 2. 9.1  KALMAN_FILTER_COMPACT_H_PARTS . COMPUTE_KALMAN_GAIN  (CATALOG  #P132-0) 

This  unit  is  a  generic  function  which  computes  the  Kalman  gain  vector  resulting 
from  the  processing  of  a  single  component  of  the  measurement  vector,  Z. 


3. 6. 5. 2. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R149. 


3. 6. 5. 2. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  Types: 
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The  following  table  summarizes  the  generic  formal  data  types  required  by  this 
part: 


Name 

Base  Type 

!  Description 

State_Indices 

discrete 

(Index  to  the  arrays  which  depend 
|  on  the  number  of  states 

i 

Measuremen  t _Ind i  ces 

discrete 

1 

| Index  to  the  arrays  which  depend 
on  the  number  of  measurements 

I 

Kalman_Filter_ 

Elements 

floating 
point  type 

1 

(Elements  contained  in  the 
j  Kalman  Filter  aggregates 

1 

P_Matrices 

private 

(Data  type  of  P  matrix 

1 

Measurement 

Variance  Vectors 

vector 

i 

| Vector  indexed  by  Measurement 
j Indices  containing  Kalman  Filter 
(Elements 

K_Column_Vectors 

vector 

| Vector  indexed  by  State_Indices 
(containing  Kalman  Filter  Elements 

Compac  t_H_Ma  trices 

vector 

1 

(Data  type  of  Compact  H  matrix 

Subprograms:  The  following  table  summarizes  the  generic  formal  subroutines 
required  by  this  part: 


Name 

Type 

Description 

1  _  „  _  _ 

Element 

function 

1 

(Extracts  an  element  of  a  P  Matrix 

3. 6. 5. 2. 9. 1.3  INTERRUPTS 


None. 


3. 6. 5. 2. 9. 1.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Compact_H_Parts; 
with  Kalman_Filter~Data_Types; 
with  Basic_Data_Types; 

•  •  • 

package  BDT  renames  Basic_Data_Types; 

package  KFCompact  renames  Kalman_Filter_Compact_H_Parts; 
•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter_Data_Types 
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(State_Indices  ■>  State_Indices, 

Measuremen t_Ind ices  =>  Measurement  Indices, 
Intervals  «>  BDT. Seconds!; 

use  KDT; 


function  CKG  is  new  KFCompact .Compute_Kalman 


(State_Indices  ~  ■> 
Measurement_Indices  -> 
Kalman  FiltSr_Elements  ■> 
P_Ma trices  *> 
Measurement_Variance_Vectors  «> 
K_Column_Vectors  -> 
Compact_H_Matrices  *> 


_Gain 

State_Indices, 

Measuremen t_Indices , 

Kalman  Filter_Elements, 

KDT .  N_Ey_N_Symme  trie. Matrices 
KDT . M~by_lTVec  tor s , 

KDT. N~by_l. Vectors, 

KDT.  M~by~l_Di  sere  te_Vec  tors ) ; 


9 


begin 


My  K  CKG  (P 


«>  My  P, 

Measuremen t_Number  «>  ThIs_Measurement, 
Compact_H  ->  My_Compact_H, 

Measurement  Variance  ->  My  Measurement  Variance); 


3. 6. 5. 2. 9. 1.5  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 5. 2. 9. 1.6  DECOMPOSITION 


None. 


3. 6. 5. 2. 9. 2  UPDATE  ERROR  COVARIANCE  MATRIX  (CATALOG  HP133-0) 

This  unit  is  a  generic  procedure  which  computes  the  updated  covariance  matrix 
resulting  from  the  processing  of  a  single  component  of  the  measurement  vector, 
Z. 


3. 6. 5. 2. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R150. 


3. 6. 5. 2. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  summarizes  the  generic  formal  data  types  required  by  this 
part: 
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Name 

Base  Type 

Description 

State_Indices 

discrete 

Index  to  the  arrays  vhich  depend 
on  the  number  of  states 

Measuremen  t_Ind ices 

discrete 

Index  to  the  arrays  vhich  depend 
on  the  number  of  measurements 

Kalman_Filter_ 

Elements 

floating 
point  type 

Elements  contained  in  the 

Kalman  Filter  aggregates 

P  Matrices 

private 

Data  type  of  P  matrix 

P  Rov_Vectors 

vector 

Vector  indexed  by  State_Indices 
containing  Kalman  Filter  Elements 

R_Column_Vectors 

vector 

Vector  indexed  by  State_Indices 
containing  Kalman  Filter_Elements 

Compact_H  Matrices 

vector 

Data  type  of  Compact  H  matrix 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


1 

1  _  . 

Name 

Type 

!  Description 

1 

|Rov 

function 

j Extracts  a  row  of  a  P  matrix 

i 

i"*« 

i 

function 

I 

| A  K  Column  Vector  is  multiplied 
jby  the  transpose  of  a  P  Row  vector, 
jyielding  a  P  matrix 

1 

I 

1  ' 

function 

|Tvo  P  matrices  are  added,  yielding  a 
j Symmetric  matrix 

3. 6. 5. 2. 9. 2. 3  INTERRUPTS 


None. 


3. 6. 5. 2. 9. 2. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Compact_H_Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic_Data_Types; 

•  •  • 

package  BDT  renames  Basic_Data_Types; 

package  KFCompact  renames  Kalman_Filter_Compact_H_Parts; 
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type  State_Indices  is  range  1  ..  27; 

type  Meas u remen t_Ind ices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  Data_Types 

(Stite_IndTces  ->  State_Indices, 

Measurement_Indices  =>  Measurement  Indices, 
Intervals  ~  ->  BDT. Seconds! ; 

use  KDT; 


procedure  Update_P  is  new  KFCompact.Update_Error_Covariance_Matrix 


(State_Indices  => 

Measurement_Indices  => 

Kalman  Filter_Elements  => 
P_Mat rices  ■> 

P_Row_Vectors  *> 

K_Column  Vectors 
Compac  t  _H_Ma  trices  -> 


begin 


State_Indices, 

Measuremen t_Indices , 

Kalman  Filtir_Elements, 
KDT.N_Ey_N  Symmetric. Matrices, 
KDT . N_by-l7Vectors , 

KDT . N_by~l . Vectors , 

KDT.M  by~l  Discrete  Vectors); 


UpdateP  (P 

Measuremen t_Number 
K 

Compact  H 


*>  My  P, 

*>  ThIs_Measurement , 
->  My_K, 

■>  My~Compact  H); 


3. 6. 5. 2. 9. 2. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 5. 2. 9. 2. 6  DECOMPOSITION 


None. 


3. 6. 5. 2. 9. 3  UPDATE_STATE_VECTOR  (CATALOG  #P134-0) 

This  unit  is  a  generic  procedure  which  updates  the  State  Vector,  X,  given  the 
old  X  vector,  the  Z  vector,  the  K  vector,  the  Measurement  Number,  and  the 
Compact  H  array. 


3. 6. 5. 2. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R151. 


3. 6. 5. 2. 9. 3. 2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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Name 

Base  Type 

Description 

State_Indices 

discrete 

Index  to  the  arrays  which  depend 
on  the  number  of  states 

Measuremen  t_Ind i ces 

discrete 

Index  to  the  arrays  which  depend 
on  the  number  of  measurements 

Kalman  Filter_ 
Elemints 

floating 
point  type 

Elements  making  up  the 

Kalman  Filter  aggregates 

Measurement  Vectors 

vector 

Vector  indexed  by  Measurement 
Indices  containing  Kalman_Filter_ 
Elements 

R_Column_Vectors 

vector 

Vector  indexed  by  State_Indices 
containing  Kalman_Filter_Elements 

State  Vectors 

vector 

Vector  indexed  by  State  Indices 
containing  Kalman_Filter  Elements 

Compact_H_Mat rices 
Vectors 

vector 

Vector  indexed  by  Measurement 
Indices  containing  State  Indices 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


Name 

1  Type 

|  Description 

1 .  _  _  ...  .  . 

»t+W 

j  function 

1 

1 

| Add  a  K  column  vector  and  a  state 
(vector,  yielding  a  state  vector 

1 

n*ii 

1 

| function 

1 

1 

! 

(Multiply  a  K  column  vector  by  a  Kal- 
jman  Filter  Element,  yielding  a  K 
| column  vector 

3. 6. 5. 2. 9. 3. 3  INTERRUPTS 


None. 


3. 6. 5. 2. 9. 3. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Compact_H  Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic_Data_Types; 

•  •  * 

package  BDT  renames  Basic  Data  Types; 
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package  KFCompact  renames  Kalman_Filter_Compact_H_Parts; 
•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_IndTces  *> 

Measuremen t_Ind ices  => 

Intervals  -> 

use  KDT; 


State_Indices, 
Measurement  Indices, 
BDT. SecondsJ ; 


package  USV  is  new  KFCompact. Update 
(State_Indices 
Measuremen  t_Ind  i  ces 
Kalman_Filter  Elements 
Measuremen  t_Vec  t or s 
K_Column_Vec  tors 
State_Vectors 
Compac  t_H_Ma  trices 


State_Vector 
*>  Slate_Indices, 

=>  Measurement_Indices, 

=>  Kalman  Filter_Elements, 

->  KDT. M_Ey_l. Vectors, 

->  KDT. N_by“l. Vectors, 

=>  KDT. N_by_l. Vectors, 

=>  KDT.M_by_l_Discrete_Vectors); 


begin 


USV  (X 
Z 
K 

Measuremen  t_Number 
Compac t_H 


->  My  X, 

->  My'Z, 

->  My'K, 

»>  This  Measurement, 
->  MyHj; 


3. 6. 5. 2. 9. 3. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 5. 2. 9. 3. 6  DECOMPOSITION 


None. 


3. 6. 5. 2. 9. 4  SEQUENTIALLYJJPDATE  COVARIANCE  MATRIX_AND  STATE  VECTOR  (CATALOG 
#P135-0) 

This  LLCSC  is  a  generic  package  which  contains  one  procedure,  "Update",  which 
updates  the  Covariance  Matrix,  P,  and  state  Vector,  X. 


3. 6. 5. 2. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R152. 


3. 6. 5. 2. 9. 4. 2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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Data  Types: 

The  following  table  summarizes  the  generic  formal  data  types  required  by  this 
part: 


Name 

|  Base  Type 

|  Description 

State  Indices 

jdiscrete 

1 

1 

j Index  to  the  arrays  which  depend 

|  on  the  number  of  states 

1 

Measurement_Indices 

|discrete 

1 

| 

| Index  to  the  arrays  which  depend 
j  on  the  number  of  measurements 

Kalman  Filter 

| floating 

| Elements  making  up  the 

Elements 

|  point  type 

1 

|Kalman  Filter  aggregates 

l 

P  Matrices 

| private 

l 

1 

|Data  type  of  P  matrix 

I 

Measurement_ 

Variance_Vectors 

i 

| vector 

1 

1 

1 

j Vector  indexed  by  Measurement 
(indices  containing  Kalman  Filter^ 
j Elements  ” 

i 

Measurement  Vectors 

1 

| vector 

i 

I 

1 

| Vector  indexed  by  Measurement 
(indices  containing  Kalman  Filter^ 
j Elements 

P_R°w_Vect°rs 

| vector 

1 

1 

1 

| Vector  indexed  by  Statelndices 
j  containing  Kalman_Filter_Elements 

K_Column_Vec  tors 

1 

| vector 

1 

1 

(Vector  indexed  by  State_Indices 
( containing  Kalman_Filter_Elements 

State_Vectors 

1 

| vector 

1 

! 

| Vector  indexed  by  State_Indices 
(containing  Kalman  Filter  Elements 

l  —  ~  1 

|Compact_H_Matrices 

| vector 

1  1 
|Data  type  of  Compact  H  matrix  | 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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Name 

Type 

Description 

Element 

function 

Extracts  an  element  of  a  P  Matrix 

Row 

function 

Extracts  a  row  of  a  P  matrix 

»**" 

function 

A  K  Column  Vector  is  multiplied 
by  the  transpose  of  a  P  Row  vector, 
yielding  a  P  matrix 

M  _  ft 

function 

Two  P  matrices  are  added,  yielding  a 
Symmetric  matrix 

Il  +  f1 

function 

Add  a  K  column  vector  and  a  state 
vector,  yielding  a  state  vector 

function 

Multiply  a  K  column  vector  by  a  Kal¬ 
man  Filter  Element,  yielding  a  K 
column  vector 

3. 6. 5. 2. 9. 4. 3  LOCAL  ENTITIES 
Packages : 

The  body  of  this  package  instantiates  Part  R149,  Compute  Kalman  Gain,  part 
R150,  Update  Error  Covariance  Matrix,  and  part  R151,  Update  State  Vector 


3. 6. 5. 2. 9. 4. 4  INTERRUPTS 


None. 


3. 6. 5. 2. 9. 4. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Compact_H_Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic_Data_Types; 

package  BDT  renames  Basic_Data_Types; 

package  RFCompact  renames  Kalman_FilIer_Compact_H_Parts; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

package  KDT  is  new  Kalman_Filter_Data_Types 

(State_IndTces  =>  State_Indices, 

Measurement_Indices  =>  Measurement_Indices, 
Intervals  =>  BDT. Seconds) ; 

use  KDT; 

package  SUCVASV  is  new  KFCompact. 
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Sequen  t  ial  ly_Upda  t  e_Covar  i  ance_ 
(State_Indices 
Measurement_Indices 
Kalman  Filter_Elements 
P_MatrIces 

Measurement_Variance_Vectors 

Measurement~Vectors 

P_R°w_Vectors 

K_Column_Vec  tors 

State_Vectors 

Compact  H  Matrices 


Matrix_And  State_Vector 

>  State_In3ices,- 

>  Measurement_Indices, 

>  Kalman  Filter_Elements, 

>  KDT.N_Uy  N_Symmetric. Matrices, 

>  KDT.M_by“l. Vectors, 

.>  KDT.M_by~l. Vectors, 

>  KDT.N~by_l. Vectors, 

>  KDT.N~by_l. Vectors, 

>  KDT.N~by“l. Vectors, 

>  KDT.M_by_l_Discrete_Vectors); 


begin 


SUCVASV. Update  (X 
P 
Z 

Compact  H 


=>  My  X, 

=>  My'P, 

->  My"Z, 

«>  My-Compact  H, 


Measurement_Variance  =>  My_Measurement_Variance) 5 


3. 6. 5. 2. 9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 5. 2. 9. 4. 7  DECOMPOSITION 

This  LLCSC  contains  just  the  function  "Update",  which  updates  the  Covariance 
Matrix  and  State  Vector. 


3. 6. 5. 2. 9. 4. 8  PART  DESIGN 


None. 


3. 6. 5. 2. 9. 5  KALMANJJPDATE  (CATALOG  IP136-0) 

This  LLCSC  is  a  generic  package  which  contains  1  procedure,  "Update"  which 
updates  the  State  Vector,  X,  given  the  old  X  vector,  the  Z  vector,  the  K 
vector,  the  Measurement  Number,  and  the  Compact  H  array. 


3.6.5. 2. 9.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R147. 


3. 6. 5. 2. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  Types: 
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The  following  table  summarizes  the  generic  formal  data  types  required  by  this 
part: 


Name 

Base  Type 

|  Description 

State_Indices 

discrete 

j Index  to  the  arrays  which  depend 
|  on  the  number  of  states 

| 

Measurement  Indices 

discrete 

1 

| Index  to  the  arrays  which  depend 
j  on  the  number  of  measurements 

i 

Kalman  Filter 
Elements 

floating 
point  type 

1 

| Elements  making  up  the 
j Kalman  Filter  aggregates 

Phi  Matrices 

private 

jData  type  of  Phi  matrix 

1 

P_And  Q  Matrices 

private 

1 

|Data  type  of  a  P  and  Q  matrix 

Measurement 
Variance  Victors 

vector 

1 

| Vector  indexed  by  Measurement 
| Indices  containing  Kalman  Filter 
(Elements 

| 

Measurement_Vectors 

vector 

1 

| Vector  indexed  by  Measurement 
j Indices  containing  Kalman_Filter_ 
(Elements  ~ 

| 

P_R°rv_Vect°rs 

vector 

| Vector  indexed  by  State_Indices 
j  containing  Kalman_Filter_Elements 

K_Co  lumn_Vec  tors 

i 

vector 

1 

| Vector  indexed  by  State_Indices 
j  containing  Kalman_Filter_Elements 

i 

State  Vectors  | vector 

; 

i 

1 

| Vector  indexed  by  State_Indices 
j  containing  Kalman_Filter_Elements 

Compact_H_Mat rices  | vector 

(Data  type  of  Compact  H  matrix 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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Name 

Type 

Description 

Element 

function 

Extracts  an  element  of  a  P  and  Q 
Matrix 

Row 

function 

Extracts  a  row  of  a  P  and  Q  matrix 

ABA_Transpose 

function 

Performs  an  ABA  transpose  on  a  Phi 
Matrix  and  a  P  and  Q  Matrix 

function 

A  K  Column  Vector  is  multiplied 
by  the  transpose  of  a  P  Row  vector, 
yielding  a  P  and  Q  matrix 

function 

Two  P  and  Q  matrices  are  added, 
yielding  a  P  and  Q  matrix 

t1  +  »l 

function 

Add  a  K  column  vector  and  a  state 
vector,  yielding  a  state  vector 

«**♦ 

function 

Multiply  a  K  column  vector  by  a  Kal¬ 
man  Filter  Element,  yielding  a  K 
column  vector 

3. 6. 5. 2. 9. 5. 3  LOCAL  ENTITIES 
Packages: 

The  body  of  this  package  instantiates  Part  R152,  Sequentially  Update  Covariance 
Matrix  and  State  Vector,  and  Part  R146,  Error  Covariance  Matrix  Manager 


3. 6. 5. 2. 9. 5. 4  INTERRUPTS 


None. 


3. 6. 5. 2. 9. 5. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Compact_H_Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic_Data_Types; 

•  •  • 

package  BDT  renames  Basic_Data_Types; 

package  KFCompact  renames  Kalman_Filter_Compact_H_Parts; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_IndTces  ~  =>  State_Indices, 

Measurement  Indices  =>  Measurement  Indices, 
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use  KDT; 


Intervals 


■>  BDT. Seconds); 


package  Kal  Update  is  new  KFCompact.KalmanJJpdate 


(State_Indices  ~  ■> 
Measurement_Indices  -> 
Kalman_Filter_Elements  ■> 
Phi_Matrices  -> 
P_and_Q_Mat  rices  *=> 
Measureient_Variance_Vectors  *> 
Measurement_Vectors  ■> 
P_Rov_Vectors  «> 
K~Column_Vectors  -> 
State_Vectors  «> 
Compact_H_Matrices  *> 


State_Indices, 

Measuremen t_Indices , 

Kalman  Filter  Elements, 

KDT .  N_Ey_N_Dynami  cally_Sparse_Ma  t  r  i  ce 
KDT .  N~by_N_Sy  mme  trie. Matrices, 

KDT . M_by_lTVec tors , 

KDT . M_by_l . Vectors , 

KDT . N_by_l . Vectors , 

KDT . N_by_l . Vectors , 

KDT . N_by_l . Vectors , 
KDT.M_by_l_Discrete_Vectors); 


begin 


•  •  • 

Kal_Update. Update  (X 
P 
Z 

Compact_H 

Measurement  Variance 
PropagatedFhi 
Propagated  J3 


*>  My  X, 

=>  My"P, 

->  My~Z, 

*>  My~Compact_H, 

■>  My~Measurement_Variance, 
->  My~Phi , 

->  My~Q); 


3. 6. 5. 2. 9. 5. 6  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 5. 2. 9. 5. 7  DECOMPOSITION 

This  LLCSC  contains  just  the  function  "Update",  which  does  the  Kalman  Update. 


3. 6. 5. 2. 9. 5. 8  PART  DESIGN 
None. 


3 . 6 . 5 . 2 . 9 . 6  UPDATE_ERROR_COVARIANCE_MATRIX_GENERAL_FORM 

This  unit  is  a  generic  procedure  which  computes  the  updated  covariance  matrix 
resulting  from  the  processing  of  a  single  component  of  the  measurement  vector, 
Z. 


3. 6. 5. 2. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R150. 
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3. 6. 5. 2. 9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  summarizes  the  generic  formal  data  types  required  by  this 
part: 


Name 

Base  Type 

|  Description 

State_Indices 

discrete 

(Index  to  the  arrays  which  depend 
j  on  the  number  of  states 

Measurement_Indices 

discrete 

| Index  to  the  arrays  which  depend 
|  on  the  number  of  measurements 
| 

Kalman_Filter 

Elements 

floating 
point  type 

! 

(Elements  contained  in  the 
|  Kalman  Filter  aggregates 

i 

P_Matrices 

private 

|Type  of  covariance  matrix.  It 
(represents  a  symmetric  matrix 
j index  by  (states,  states) 

l 

K  H_Product_ 
Matrices 

private 

1 

|A  matrix  of  the  form  I_KH,  where 
|K  is  a  K  Column  Vector  and  H  is 
(a  row  of  the  H  iatrix.  It 
(represents  a  matrix  indexed  by 
j (states,  states) 

I 

Measurement 

Variance_ 

vector 

1 

|Type  of  Measurement  Variance 
j Vector  (R).  It  is  indexed  by 
j (states) 

K_Column_Vectors 

vector 

(Type  of  a  Column  of  the  Kalman 

|Gain  Matrix  (K).  It  is  indexed 

j  by  (states) 

■ 

Compac  t  _H_Ma  trices 

1 

1 

1 

1 

1 

vector 

1 

|A  vector,  index  by  Measurement 
| Indices  containing  the  indices  of 
j the  measured  states.  It  repre- 
jsents  a  matrix  indexed  by 
{(Measurement,  states)  that  is  all 
j zeroes  except  for  locations 
j specified  by  rov=I,  column^ 
j Compac t_H_Matrices(I) 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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Name 

Type 

Description 

I_Minus_Column_ 

Matrix 

function 

K  and  the  current  state  measured  (as 
indicated  by  vhicvh  element  of  the 
current  row  of  H  is  a  "1")  ■=>  I_KH 

ABA_Transpose 

function 

K  H_Product  Matrices  *  Kalman_Filter 
Elements  *  transpose(K_H_Product_ 
Matrices)  *>  PMatrices 

ABA  Transpose 

function 

K  Colunm_Vectors  *  Kalman_Filter_ 
Elements  *  transpose(  K_Column_ 
Vectors)  =>  P_Matrices 

n  +  n 

function 

P  Matrices  +  P_Matrices  ->  P_Matrices 

3. 6. 5. 2. 9. 6. 3  INTERRUPTS 


None. 


3. 6. 5. 2. 9. 6. 4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Kalman_Filter_Compact_H_Parts; 
with  Kalman  FilterDataTypes; 
with  Basic_Data_Types; 

•  •  • 

package  BDT  renames  Bas i c_Da  t  a  Types ; 

package  KFCompact  renames  Kalman_Filter_Compact_H_Parts; 


type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

«  •  * 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_IndTces  =>  State_Indicesf 

Measurement  Indices  «>  Measurement_Indices , 
Intervals  =>  BDT. Seconds ) ; 

use  KDT; 


procedure 


Update  P  is  new  KFCompact. Update  Error  Covariance  Matrix 


(Measurement_Indices  => 
State_Indices  => 
Kalman  Filter_Elements  => 
P_MatrTces  => 
P_Rov_Vectors  => 
K_Column_Vectors  => 
Compact  H  Matrices  => 


Measurement_Indices , 
State_Indices, 
KDT.Kalman_Filter_Elements, 
KDT.N_by  N-Symmetric. Matrices, 
KDT.  N_ByjTVec  tors, 

KDT. N_By_l. Vectors, 
Compact_H_Vectors) ; 


begin 
•  •  • 

Update_P  (P  =>  My  P, 

Measurement  Number  =>  This  Measurement, 
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K  ->  My_K, 

Compact_H  *>  My_Compact_H); 

•  •  • 

3. 6. 5. 2. 9. 6. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 

3. 6. 5. 2. 9. 6. 6  DECOMPOSITION 


None. 
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package  Kalman_Filter_Compact_H_Parts  is 


pragma  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement  Indices  is  (<>); 
type  Kalman_Filtir_Elements  is  digits  <>; 

type  P_Matrices  is  private; 

type  Measurement_Variance_Vectors  is  array  (Measurement_Indices) 
of  Kalman_Filter_Elements; 
type  K_Column  Vectors  is  array  (State_Indices) 
of  KalmanFilterElements; 

type  Compact_H_Ma trices  is  array  (Measurement_Indices)  of  State_Indices; 

vith  function  Element  (Source  :  P_Matrices; 

Row  :  State_Indices; 

Column  :  State_Indices) 
return  Kalman_Filter_Elements  is  <>; 

function  Compute_Kalman_Gain 

(P  :  P_Matrices; 

Measurement^Number  :  Measurement_Indices; 

Compact_H  :  Compact_H_Matrices; 

MeasurementVariance  :  MeasurementVarianceVectors) 

return  K  Column  Vectors; 


is  (<>); 
is  (<>); 
is  digits  <>; 
is  private; 

is  array  (Statelndices) 

of  Kalman_Filter_Elements; 
is  array  (Stati_Indices) 

of  Kalman_Filter_Elements; 
is  array  (Measurement_Indices) 
of  State_IndicesT 
with  function  Row  (Source  :  P  Matrices; 

Row  :  State_Indices)  return  P_Rov_Vectors  is  <>; 
with  function  (Left  :  K_Column_Vectors; 

Right  :  P_Row_Vectors)  return  P_Matrices  is  <>; 
with  function  (Left  :  P_Matrices; 

Right  :  P_Matrices)  return  P_Matrices  is  <>; 
procedure  Update_Error_Covariance_Matrix 

(P  -  7  in  out  P_Matrices; 

Measurement_Number  :  in  Measurement_Indices ; 

K  :  in  K  Column_Vectors; 

Compact_H  :  in  Compact_H_Matrices) ; 


pragma  PAGE; 
generic 

type  State_Indices 
type  Measurement_Indices 
type  Kalman  Filter_Elements 
type  P_Ma trices 
type  P_Row_Vectors 

type  K_Column_Vectors 

type  Compact_H_Matrices 


pragma  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 
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type  Kalman_Filter_Elements  is  digits  <>; 

type  Measur<»ment_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 

type  K_Column_Vectors  is  array  (State_lndicls) 

of  Kalman_Filter_Elements; 

type  State_Vectors  is  array  (State  Indicis) 

of  Kalman_Filter_Elements; 
type  Compact_H_Mat rices  is  array  (Measurement~Indices) 

of  State_Indices7 

with  function  "+"  (Left  :  K_Column_Vectors; 

Right  :  State_Vectors)  return  State_Vectors  is  <>; 
with  function  (Left  :  K_Column  Vectors; 

Right  :  Kalman_Fllter_Elements) 
return  K  Column-Vectors  is  <>; 


procedure  Update  State  Vector 

(X 

:  in  out 

State_Vectors; 

Z 

:  in 

Measurement  Vectors; 

K 

:  in 

K  Column_Vectors; 

Measurement  Number  :  in 

Measurement_Indices; 

pragma  PAGE; 
generic 

Compact_H 

:  in 

Compact_H  Matrices); 

type  State 

Indices 

is  (<>); 

type  Measurement_Indices 

is  «>); 

type  Kalman  Filter_Elements  is  digits  <>; 
type  P_Ma trices  is  private; 

type  Measurement_Variance_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 

type  MeasurementVectors  is  array  (Measurementlndices) 

of  Kalman_Filter_Elements; 
type  P_Rov_Vectors  is  array  (State_Indices) 

of  Kalman_Filter_Elements; 
type  KColumnVectors  is  array  (State_Indices) 

of  Kalman_Filter_Elements; 
type  State_Vectors  is  array  (Statelndices) 

of  Kalman_Filter_Elements; 

type  Compact_H_Mat rices  is  array  (Measurement_Indices)  of  State_Indices; 
with  function  Element  (Source  :  P_Matrices; 

Row  :  State_Indices; 

Column  :  State  Indices) 
return  Kalman_Fllter_Elements  is  <>; 
with  function  Row  (Source  :  P_Matrices; 

Row  :  State_Indices)  return  P_Row_Vectors  is  <>; 

with  function  "*"  (Left  :  K_Column_Vectors; 

Right  :  P_Row_Vectors)  return  P_Matrices  is  <>; 
with  function  (Left  s  P_Matrices; 

Right  :  PJiatrices)  return  P_Matrices  is  <>; 
with  function  "+"  (Left  :  K_Column_Vectors; 

Right  :  State_Vectors) 
return  State  Vectors  is  <>; 
with  function  (Left  :  K^Column  Vectors; 

Right  :  Kalman_Fllter_Elements) 
return  K_Column]]Vectori  is  <>; 

package  Sequentially_Update_Covariance_Matrix_And_State_Vector  is 
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procedure  Update 

(P  :  in  out  P_Matrices; 

X  :  in  out  State_Vectors; 

Z  :  in  Measurement_Vectors; 

Compact_H  :  in  Compac t_H_Ma trices; 

Measurement_Variance  :  in  Measureient_Variance_Vectors) ; 

end  Sequent  ially_Update_Covariance_Matrix_And_State_Vec  tor; 

pragma  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 
type  Kalman_Filter_Elements  is  digits  <>; 

type  Phi_Matrices  is  private; 
type  P_And_Q_Matrices  is  private; 

type  Measurement_Variance_Vectors  is  array  (Measurement_Indices) 
of  Kalman_Filter_Elements; 

type  Measurement_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 
type  P_Row_Vectors  is  array  (State_Indices) 

of  Kalman_Filter_Elements; 
type  K_Column_Vectors  is  array  (State~Indices) 

of  lUlman~Filter_Elements; 
type  StateVectors  is  array  (Statelndices) 

of  Kalman~Filter  Elements; 

type  Compac t_H_Mat rices  is  array  (Measu remen t_Ind ices)  of  State_Indices; 

with  function  Element  (Source  :  P_And_Q_Ma trices; 

Row  :  State~Indices; 

Column  :  State  Indices) 
return  KalmanFllterJElements  is  <>; 
with  function  Row  (Source  :  P_And_Q~Mat rices; 

Row  :  State_Indices)  return  P_Row_Vectors  is  <>; 
with  function  Aba_Transpose  (Phi  :  Phi_Matrices; 

P  :  P_And_Q_Matrices) 
return  P~And~Q_Matrices  is  <>; 
with  function  (Left  s  K_Column_Vectors; 

Right  :  P~Row_Vectors)  return  P_And_Q_Ma trices  is  <>; 
with  function  (Left  :  PKi_Matrices; 

Right  s  State_Vectors)  return  StateVectors  is  <>; 
with  function  (Left  :  P_And_Q_Ma trices; 

Right  :  P~And_Q_Ma trices) 
return  P_And  Q_Mat rices  is  <>; 
with  function  "+"  (Left  :~K_Column_Vectors; 

Right  :  State_Vectors) 
return  State_Vectors  is  <>; 
with  function  "+"  (Left  :  P  And  Q_Matrices; 

Right  :  P_And_Q  Matrices) 
return  P_And~Q_Ma trices  is  <>; 
with  function  (Left  K~Column  Vectors; 

Right  :  Kalman  Filter  Elements) 
return  K  Column  Vectors  Is  <>; 


package  Kalman  Update  is 
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procedure  Update 

(X  s  in  out  State_Vectors; 

P  :  in  out  P  And  Q  Matrices; 


z 

in 

Miasur emen t_Vec  t o  r s ; 

Compact_H 

in 

Compac  t_H_Ma  trices; 

Measurement_Variance 

in 

Measurement_Variance_Vectors ; 

Propagated_Phi 

in 

Phi_Matrices; 

P_And_Q_Ma trices); 

Propagated~Q 

in 

end  Kalman_Update; 

pragma  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 
type  Kalman_Filter_Elements  is  digits  <>; 

type  PMatrices  is  private; 

type  K_H_Product_Matrices  is  private; 

type  Measurement_Variance_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 

type  K_Column_Vectors  is  array  (State_Indices) 

of  KalmanFilter  Elements; 

type  Compac t_H_Ma trices  is  array  (Measu remen t_Ind ices)  of  Statelndices; 
with  function  I_Minus_Column_Matrix  (K  :  K_Column  Vectors; 

State_Measure  :  State_In3ices) 
return  K_H_Product_Matrices  is  <>; 
with  function  Aba_Transpose  (A  :  K_H_Product_Matrices; 

B  :  P_Matrices) 
return  P_Matrices  is  <>; 

with  function  AbaJTranspose  (A  :  KColumn  Vectors; 

B  :  Kalman_Fllter  Elements) 
return  P_Matrices  Is  <>; 
with  function  "+"  (Left  :  PMatrices; 

Right  :  P_Matrices)  return  P_Matrices  is  <>; 

procedure  Update_Error_Covariance_Matrix_General_Form 
(P  ~  :  in  out  P  Matrices; 


Measurement  Number 

:  in 

Measurement  Indices; 

K 

:  in 

K_Column_Vectors; 

Compact  H 

:  in 

Compac t_H_Ma trices; 

Measureient  Variance 

:  in 

Measurement_Variance_Vectors) ; 

end  KalmanJFi 1 1 er_Compac  t_H_Par  t s ; 
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3.6.5. 3  KALMAN_FILTER_COMPLICATED_H_PARTS  TLCSC  (CATALOG  IP143-0) 

This  part,  which  is  designed  as  an  Ada  package,  contains  specifications  for  all 
CAMP  parts  which  can  be  used  to  implement  a  Kalman  Filter  when  a  complicated 
Measurement  Sensitivity  Matrix  (Complicated  H  Matrix)  is  used. 


3.6.5. 3.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
TLCSC: 


Name 


|  Requirements  Allocation  | 


|Compute_Kalman_Gain  |  R182 
|Update_Error_Covariance_Matrix  I  R183 
|Update_State_Vector  |  R184 
j Sequentially_Update_Covariance  Matrix_and_  j  R201 
|  State_Vector 

|Kalman_Update  |  R181 


j  Update_Error  Covariance_Matrix_General_Form 


3. 6. 5. 3. 2  INPUT/OUTPUT 
None. 

3. 6. 5. 3. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 5. 3. 4  LOCAL  ENTITIES 
None. 

3. 6. 5. 3. 5  INTERRUPTS 


None. 

3. 6. 5. 3. 6  TIMING  AND  SEQUENCING 
None. 

3. 6. 5. 3. 7  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  TLCSC. 
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3. 6. 5. 3. 8  DECOMPOSITION 


The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

|  Description  | 

Compute_Kalman_Gain 

generic 

function 

Computes  the  Kalman  gain  vector 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 

Update  Error_ 
Covariance_Matrix 

generic 

procedure 

Computes  the  Error  Covariance  Matrix 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 

Update  State_Vector 

generic 

procedure 

Computes  the  State  Vector 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 

Sequent ially_Update 
Error_Covariance_ 
Matrix  And_State 
Vector 

generic 

package 

Computes  the  updated  Covariance  Matrix, 

P,  and  state  Vector,  X. 

KalmanUpdate 

generic 

package 

Compute  the  updated  State  Vector,  X, 
given  the  old  X  vector,  the  Z  vector, 
the  K  vector,  the  Measurement  Number, 
and  the  Compact  H  array. 

Update_Error_ 

Covar i ance_Ma  t  r i x_ 
General_Form 

generic 

procedure 

Computes  the  Error  Covariance  Matrix 
resulting  from  the  processing  of  a 
single  component  of  measurement  vector, Z 
using  the  general  form 

3. 6. 5. 3. 9  PART  DESIGN 

3. 6. 5. 3. 9.1  COMPUTEKALMANGAIN  (CATALOG  #P144-0) 

This  LLCSC  is  a  generic  function  which  computes  the  Kalman  gain  vector 
resulting  from  the  processing  of  a  single  component  of  the  measurement  vector, 
Z. 


3. 6. 5. 3. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R182. 


3. 6. 5. 3. 9. 1.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 


CAMP  Software  Top  Level  Design  Document 


Page  307 


Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

|  Base  Type 

Description  | 

State_Indices 

discrete 

Index  to  the  arrays  which  depend 
on  the  number  of  states 

Measurement  Indices 

discrete 

Index  to  the  arrays  which  depend 
on  the  number  of  measurements 

Kalman  Filter 
Elements 

floating 
point  type 

Elements  contained  in  the 

Kalman  Filter  aggregates 

P  Matrices 

private 

Data  type  for  n  x  n  P  matrixx 

H_Ma trices 

private 

Data  type  for  n  x  n  H  matrix 

H_Rov  Vectors 

private 

Data  type  of  vector  representing 
an  H  vector 

Measurement 

Variance_ 

Vectors 

array 

Vector  indexed  by  Measurement 
Indices  containing  Kalman_Filter_ 
Elements 

K_Column_Vec  tors 

array 

Vector  indexed  by  State_Indices 
containing  Kalman_Filter_Elements 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


Name 

1  Type 

Description 

Active  H  Vector 

|  function 

1 

I 

| Returns  the  row  of  an  (MxN)  H  matrix 

j that  is  referenced 

1 

Times  Transpose 

1 

|  function 

1 

1 

1 

(Multiplies  a  P  matrix  by  the  trans- 
jpose  of  a  n  x  1  H  Row  Vector,  yield- 

ling  a  K  Column  Vector 

1 

Dot  Product 

1 

| function 

1 

1 

(Multiplies  a  (Nxl)  H  Row  Vector  by  a 
|K  Column  Vector,  yielding  a  Kalman 
j Filter  Element 

ft  /t! 

1 

|  function 

1 

1 

1 

(Divides  a  (Nxl)  K  Column  Vector  by  a 
(Kalman  Filter  Element,  yielding  a 
|K  Column  Vector 
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3. 6. 5. 3. 9. 1.3  INTERRUPTS 


None. 


3. 6. 5. 3. 9. 1.4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Kalman_Filter_Complicated_H_Parts; 
with  Kalman_Filter_Data_Types; 
with  Basic_Data_Types; 


package  KFCompx  renames  Kalman_Filter_Complicated_H_Parts; 
package  BDT  renames  Basic_Data_Types ; 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_lndlces  «> 

Measurement_Indices  -> 

Intervals  *> 

use  KDT; 


State_Indices, 
Measurement  Indices, 
BDT. Second sj; 


function  CKG  is  new  KFCompx. Compute_Kalman_Gain 

(State_Indices  «>  Statelndices, 

Measurementlndices  «>  Measurement  Indices, 

Kalman  Filter_Elements  ■>  KDT.Kalman_FilterJElements, 

P_MatrIces  «>  KDT. N_by_N_Symmetric. Matrices, 

H~Matrices  ■>  KDT. M”By_N~Statically_Sparse. Matrices; 

H“Row_Vectors  «>  KDT. N_By_l. Vectors, 

Measurement_Variance_Vectors 

*>  KDT. M_By_l. Vectors, 

K_Column_Vectors  =>  KDT. N_By_l. Vectors); 


begin 


My_K  :« 


CKG  (P 

Measurement_Number 
ComplicatedH 
Measurement  Variance 


->  My  P, 

=>  ThIs_Measurement , 

*>  My_Complicated_H, 

=>  My~Measurement_Variance) ; 


3. 6. 5. 3. 9. 1.5  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 5. 3. 9. 1.6  DECOMPOSITION 


None. 
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3. 6. 5. 3. 9. 2  UPDATE_ERROR_COVARIANCE_MATRIX  (CATALOG  #P145-0) 

This  unit  is  a  generic  procedure  which  computes  the  updated  covariance  matrix 
resulting  from  the  processing  of  a  single  component  of  the  measurement  vector, 
Z. 


3. 6. 5. 3. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R183. 

3. 6. 5. 3. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Base  Type 

|  Description  | 

|State_Indices 

discrete 

| Index  to  the  arrays  which  depend 
on  the  number  of  states 

1 

|  Measurement_Indices 

discrete 

1 

| Index  to  the  arrays  which  depend 
j  on  the  number  of  measurements 

i 

1 

|Kalman_Filter_ 
j  Elements 

floating 
point  type 

i 

| Elements  contained  in  the 
j  Kalman  Filter  aggregates 

1 

1 

|P_Matrices 

1 

private 

|Data  type  for  private  n  x  n  P 

j matrix 

1 

1 

|H_Mat rices 

private 

1 

|Data  type  for  private  H  matrix 

1 

|H_Row_Vectors 

1 

private 

| Private  vector  representing  a 
jrow  of  the  H  matrix 

1 

|K_H_Product_ 

|  Matrices 

1 

array 

1 

| Private  matrix  representing 
j product  of  K  and  H  matrices 

I  • 

1 

|K_Column_Vectors 

vector 

|Vector  indexed  by  State_Indices  j 
(containing  Kalman  Filter  Elements! 

Subprograms: 

The  following  table  summarizes  che  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

Type 

Description  | 

Active_H_Vector 

function 

Returns  the  row  of  a  (MxN)  H  Matrix 
that  is  referenced 

Subtract_From_ 

Identity 

procedure 

Subtracts  a  K_H_Product  matrix  from 
the  Identity  Matrix  (i.e.,  I  -  S) 

«*» 

function 

Multiplies  a  K  Column  Vector  by  a  H 

Row  Vector,  yielding  a  K  H  Product 
Matrix 

*•*« 

function 

Multiplies  a  K  H  Product  Matrix  by  a 

P  Matrix,  yielding  a  P  Matrix 

3. 6. 5. 3. 9. 2. 3  INTERRUPTS 


None. 


3. 6. 5. 3. 9. 2. 4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Kalman_Filter_Complicated_H_Parts; 
with  Kalman  FilterDataTypes; 
with  BasicBataTypes; 

•  •  • 

package  KFCompx  renames  Kalman_Filter_Complicated_H_Parts; 
package  BDT  renames  Basic_Data_Types; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  . .  5; 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_IndTces  »> 

Measurement_Indices  => 

Intervals  *> 

use  KDT; 


State_Indices, 
Measurement_Indices , 
BDT.SecondsT; 


procedure  UpdateP  is  new  KFCompx. Update_Error  Covariance_Matrix 


(State_lndices  «> 
Measurement_Indices  ■> 
Kalman  Filter_Elements  => 
P_MatrIces  => 
H_Matrices  => 
H~Rov_Vectors  => 
K_H_Product_Matrices  => 
K  Column  Vectors  => 


State_In3ices, 

Measurement_Indices , 
KDT.Kalman_Filter_Elements, 

KDT .  N_by_N~Symme t  r i c . Matrices, 

KDT.M  By~N~Statically  Sparse. Matrices, 
KDT .  N~By_l7Vec  t  ors , 

KDT .  N_by_N_Dynami  cal  ly_Spars  e_Ma  t  r  i  ces , 
KDT.N  By  1. Vectors); 


begin 
•  •  • 

Update_P  (P 

Complicated  H 


«>  My_P, 

*>  My_Complicated_H, 
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Measurement  Number  *>  This  Measurement, 
K  “  ->  MyKj; 


3. 6. 5. 3. 9. 2. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 5. 3. 9. 2. 6  DECOMPOSITION 


None. 


3. 6. 5. 3. 9. 3  UPDATE_STATE_VECTOR  (CATALOG  #P146-0) 

This  unit  is  a  generic  procedure  which  updates  the  State  Vector,  X,  given  the 
old  X  vector,  the  Z  vector,  the  K  vector,  the  Measurement  Number,  and  the 
Complicated  H  array. 


3. 6. 5. 3. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R184. 


3. 6. 5. 3. 9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Base  Type 

|  Description  | 

State  Indices 

discrete 

| Index  to  the  arrays  which  depend 
|  on  the  number  of  states 
| 

Measuremen  t_Ind i ces 

discrete 

1 

| Index  to  the  arrays  which  depend 
[  on  the  number  of  measurements 

Kalman  Filter 
Elements 

floating 
point  type 

| Elements  contained  in  the 
|  Kalman  Filter  aggregates 

1 

H  Matrices 

private 

1 

|Data  type  of  m  x  n  H  matrix 

l 

H  Row  Vectors 

private 

1 

|Vector  representing  a  row  of  an 

|H  matrix 

1 

Measuremen t_Vec tors 

vector 

| Vector  indexed  by  Measurement 
j Indices 

I 

K  Column  Vectors 

vector 

1 

| Vector  indexed  by  State_Indices 
j containing  Kalman  Filter  Elements 

State_Vectors 

vector 

! 

| Vector  indexed  by  State_Indices 
(containing  Kalman  Filter  Elements 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

| Ac  t i ve_H_Vec  t or 

1 

|  function 

j 

| Returns  the  row  of  a  (MxN)  H  matrix 
j that  is  referenced 

1 

1 

1 

1 

|  function 

1 

(Computes  the  product  of  an  H  Row 
jvector  and  a  State  vector,  yeilding 
ja  Kalman  Filter  Element 

|Dot_Product 

1 

| 

1 

|  function 

1 

| 

1 

(Multiplies  a  (Nxl)  K  Column  Vector 
jby  a  Kalman  Filter  Element,  yielding 
(a  K  Column  Vector 

I 

j "+" 

1 

1 

|  function 

1 

1 

|Adds  a  state  vector  and  a  K  column 
jvector  (both  nxl)  yielding  a  state 
jvector 

3. 6. 5. 3. 9. 3. 3  INTERRUPTS 


None. 
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3. 6. 5. 3. 9. 3. 4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Complicated_H_Parts; 
with  Kalman  Filter~Data_Types; 
with  BasicJBata_Types; 

•  •  • 

package  KFCompx  renames  Kalman  Filter  Complicated  H  Parts; 
package  BDT  renames  Basic_Data_Types; 

«  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 


package  KDT  is  new  Ralman_Filter  Data_Types 

(State_IndTces  =>  State  Indices, 

Measurement_Indices  «>  Measurement  Indices, 
Intervals  =>  BDT. Seconds!; 

use  KDT; 


package  USV  is  new  KFCompx. Update  State  Vector 


(State_Indices  «> 
Measurement_Indices  -> 
Kalman  Filter_Elements  -> 
H_Ma  trices  ■> 
H-RowVectors  -> 
Measurement_Vectors  -> 
K_Column_Vectors  »> 
State_Vectors  ■> 

•  •  • 
begin 


State_Indices, 

Measurement_Indices , 

KDT .  Kalman_Fi  1  ter_Elemen  t  s , 

KDT .  M_By_N~Stat  icallySparse .  Matrices , 
KDT .  N_By_l7Vec  tors , 

KDT.  M_By_l.  Vectors, 

KDT . N_By  1. Vectors, 

KDT. NByj. Vectors); 


USV  (X 
Z 

ComplicatedH 
Measuremen  t_Number 
Complicated_H 


->  My_X, 

->  My_Z, 

*>  My  Complicated_H, 
*>  This  Measurement, 
=>  MyHj; 


3. 6. 5. 3. 9. 3. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 

3. 6. 5. 3. 9. 3. 6  DECOMPOSITION 
None. 

3. 6. 5. 3. 9. 4  SEQUENTIALLY  UPDATE  COVARIANCE  MATRIX  AND  STATE  VECTOR  (CATALOG 
#P147-0) 


This  LLCSC  is  a  generic  package  which  contains  1  procedure,  "Update",  which 
updates  the  Covariance  Matrix,  P,  and  state  Vector,  X. 
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3. 6. 5. 3. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R152. 


3. 6. 5. 3. 9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Base  Type 

|  Description  | 

States_Indices 

discrete 

| Index  to  the  arrays  which  depend 

|  on  the  number  of  states 

1 

Measuremen  t_Ind i ces 

discrete 

| Index  to  the  arrays  which  depend 

|  on  the  number  of  measurements 

1 

Kalman  Filter 
Elements 

floating 
point  type 

1 

| Elements  contained  in  the 
j  Kalman  Filter  aggregates 

P_Matrices 

private 

1 

|Data  type  for  n  x  n  private  P 
{matrix 

I 

H_Matrices 

private 

1 

(Data  type  for  private  m  x  n  H 

{matrix 

1 

K_H_Product_ 

Matrices 

private 

1 

|Data  type  for  private  n  x  n  K 

jand  H  matrix 

1 

H_R°w_Vectors 

private 

1 

|Vector  representing  a  row  of  a 
jp  matrix 

I 

Measuremen t_Vec tors 

vector 

1 

| Vector  indexed  by  Measurement_ 
j Indices  containing  Kalman_Filter_ 

j Elements 

1 

Measuremen t_ 
Variance_ 

|  Vectors 

I 

vector 

! 

| Vector  indexed  by  Measurement_ 
j Indices  containing  Kalman_Filter_ j 
j Elements 

i  1 

|K  Column  Vectors 

1  " 
i 

vector 

1 

| Vector  indexed  by  State_Indices 
{containing  Kalman  Filter  Elements! 

i 

| State  Vectors  | vector 

1  1 

1  1 
|Vector  indexed  by  State_Indices  | 
{containing  Kalman_Filter  Elements j 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

Type 

!  Description  | 

Active_H_Vector 

function 

Returns  the  row  of  an  (MxN)  H  matrix 
that  is  referenced 

Subtract_From_ 

Identity 

procedure 

Subtracts  a  K  and  H  Product  matrix 
from  the  Identity  Matrix(i.e.,  I  -  S) 

Times_Transpose 

function 

Multiplies  a  P  matrix  by  the  trans¬ 
pose  of  a  H  Row  Vector,  yielding  a 

K  Column  Vector 

Dot  Product 

function 

Multiplies  a  H  Row  Vector  by  a  K 

Column  vector,  yielding  a  Kalman 

Filter  Element 

Dot  Product 

function 

Multiplies  a  H  Row  Vector  by  a  State 
vector,  yielding  a  Kalman  Filter 
Element 

ii*n 

function 

Multiplies  a  K  Column  Vector  by  a  H 

Row  Vector,  yielding  a  K  and  H 

Product  Matrix 

function 

Multiplies  a  K  and  H  Product  Matrix 
by  a  P  Matrix,  yielding  a  P  Matrix 

|"*« 

function 

Multiplies  a  K  Column  Vector  by  a 
Kalman  Filter  Element,  yielding  a 

K  Column  Vector 

!»  /  f? 

function 

Divides  a  K  Column  Vector  by  a  Kalman 
Filter  Element,  yielding  a  K  Column 
Vector 

1  M  +  M 

1 

function 

Adds  a  State  Vector  and  a  K  Column 
Vector,  yielding  a  State  Vector 

3. 6. 5. 3. 9. 4. 3  LOCAL  ENTITIES 


None. 


3. 6. 5. 3. 9. 4. 4  INTERRUPTS 


None. 


3. 6. 5. 3. 9. 4. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Filter_Complicated_H_Parts; 
with  Kalman  Filter~Data  Types; 
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vith  Basic_Data_Types; 

•  •  • 

package  KFCompx  renames  Kalman_Filter_Complicated_H_Parts; 
package  BDT  renames  Basic_Data_Types ; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

•  •  • 

package  KDT  is  new  Kalman_Filter  Data_Types 

(State_lndlces  *> 

Measurement_Indices  -> 

Intervals  ~  => 

use  KDT; 


State_Indices, 
Measurement_Indices , 
BDT. Seconds! ; 


package  SUCVASV  is  new 

KFCompx. Sequent ially_Update_Covariance  Matrix_And  State_Vector 


begin 


(State_Indices 
Neasur emen  t_Ind i  ces 
Kalman  FilterElements 
P_Ma trices 
H_Matrices 
K_H_Product_Matrices 
H_Rov_Vectors 
Measurement_Variance 

Measurement_Vectors 
K_Column_Vectors 
State  Vectors 


«>  State_In3ices, 

=>  Measurement_Indices, 

*>  KDT.Kalman_Filter_Elements, 

=>  KDT. N_by_N_Symme trie. Matrices, 

«>  KDT .  M~By ~N_S  t  a  t  i  cally_Spar se  .Matrices, 
»>  KDT . N_by_N_Dynamically_Sparse_Mat rices , 
«>  KDT. N~By_lTVec tors, 

Vectors 

->  KDT. M_By_l. Vectors, 

«>  KDT. M_By_l. Vectors, 

->  KDT.N  By  1. Vectors, 

->  KDT. N~By~l. Vectors) ; 


SUCVASV. Update  (X 
P 


Complicated_H 
Measurement  Variance 


->  My_X, 

■>  My_P, 

=>  My_Z, 

=>  My_Complicated_H, 

=>  My  Measurement  Variance); 


3. 6. 5. 3. 9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 5. 3. 9. 4. 7  DECOMPOSITION 
None. 

3. 6. 5. 3. 9. 4. 8  PART  DESIGN 


None. 
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3. 6. 5. 3. 9. 5  KALMANJJPDATE  (CATALOG  #P148-0) 

This  LLCSC  is  a  generic  package  which  updates  the  State  Vector,  X,  given  the 
old  X  vector,  the  Z  vector,  the  K  vector,  the  Measurement  Number,  and  the 
Complicated  H  array. 


3. 6. 5. 3. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R181. 

Context  of  tlcsc:  This  part  with's  no  library  units. 

3. 6. 5. 3. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

|  Base  Type 

Description  | 

States_Indices 

discrete 

Index  to  the  arrays  which  depend  | 
on  the  number  of  states 

Measurement_Indices 

discrete 

1 

Index  to  the  arrays  which  depend  | 
on  the  number  of  measurements 

Kalman  Filter 

floating 

Elements  contained  in  the 

Elements 

point  type 

Kalman  Filter  aggregates 

PhiMatrices 

private 

Data  type  for  private  n  x  n  Phi 
matrix 

P_Matrices 

private 

Data  type  for  n  x  n  private  P 
matrix 

H  Matrices 

private 

Data  type  for  private  m  x  n  H 
matrix 

K  H  Product 

Matrices 

private 

Data  type  for  private  n  x  n  K 
and  H  matrix 

H_Rov_Vectors 

private 

Vector  representing  a  row  of  a 

P  matrix 

Measurement_Vectors 

vector 

Vector  indexed  by  Measurement 
Indices  containing  Kalman_Filter_ 
Elements 

Measurement_ 

Variance_ 

Vectors- 

vector 

Vector  indexed  by  Measurement 
Indices  containing  Kalman_Filter_ 
Elements 

K_Column_Vectors 

vector 

Vector  indexed  by  State_Indices 

containing  Kalman  Filter  Elements 
—  —  ! 

State_Vectors 

vector 

1 

Vector  indexed  by  State_Indices  | 
containing  Kalman_Filter_Elements  j 

Subprograms: 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


CAMP  Software  Top  Level  Design  Document 


Page  319 


|  Name 

1  Type 

|  Description  | 

Active_H_Vector 

function 

Returns  the  row  of  an  (MxN)  H  matrix 
that  is  referenced 

Subtract_From_ 

Identity 

procedure 

Subtracts  a  K  and  H  Product  matrix 
from  the  Identity  Matrix(i.e.,  I  -  S) 

Times  Transpose 

function 

Multiplies  a  P  matrix  by  the  trans¬ 
pose  of  a  H  Row  Vector,  yielding  a 

K  Column  Vector 

ABA  Transpose 

function 

Does  an  ABA  Transpose  opertion  on  a 

Phi  matrix  and  a  P  and  Q  matrix, 
yielding  a  P  and  Q  matrix 

Dot  Product 

function 

Multiplies  a  H  Row  Vector  by  a  K 

Column  vector,  yielding  a  Kalman 

Filter  Element 

Dot_Product 

function 

Multiplies  a  H  Row  Vector  by  a  State 
vector,  yielding  a  Kalman  Filter 
Element 

"*« 

function 

Multiplies  a  K  Column  Vector  by  a  H 

Row  Vector,  yielding  a  K  and  H 

Product  Matrix 

function 

Multiplies  a  K  and  H  Product  Matrix 
by  a  P  Matrix,  yielding  a  P  Matrix 

«*" 

function 

Multiplies  a  K  Column  Vector  by  a 
Kalman  Filter  Element,  yielding  a 

K  Column  Vector 

j  «*" 

function 

Multiplies  a  Phi  Matrix  by  a  State 
Vector  yielding  a  State  Vector 

| 

|'V" 

1 

1 

1 

function 

Divides  a  K  Column  Vector  by  a  Kalman 
Filter  Element,  yielding  a  K  Column 
Vector 

1 

j"+" 

1 

function 

Adds  a  State  Vector  and  a  K  Column 
Vector,  yielding  a  State  Vector 

3. 6. 5. 3. 9. 5. 3  LOCAL  ENTITIES 
Packages : 

The  body  of  this  package  instantiates  Part  R201,  Sequentially  Update  Covariance 
Matrix  and  State  Vector,  and  Part  R146,  Error  Covariance  Matrix  Manager 
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3. 6. 5. 3. 9. 5. 4  INTERRUPTS 
None. 


3. 6. 5. 3. 9. 5. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Fi 1 ter_Compl i ca t ed_H_Par t s ; 
with  Kalman_Filter_Data_Types;~ 
with  Basic_Data_Types; 

•  •  • 

package  KFCompx  renames  Kalman_Filter_Complicated_H_Parts; 

package  BDT  renames  Basic_Data_Types; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurement_Indices  is  range  1  ..  5; 

package  KDT  is  new  Kalman_Filter  DataTypes 

(State_lndlces  *>  Statelndices, 

Measurement_Indices  =>  Measurement  Indices, 

Intervals  ->  BDT. Seconds) ; 

use  KDT; 

•  •  • 

package  SUCVASV  is  new  KFCompx. Kalman_Update 

(State_Indices  «>  State_Indices, 

Measurement_Indices  ■>  Measurement  Indices, 

Kalman_Filter_Elements  «=>  KDT. Kalman  Filter  Elements , 

Phi_Matrices  =>  KDT.N_by_N_Dynamically_Sparse_Matrices, 

P_and_Q_Ma trices  *>  KDT . N_by_N~Sy mme trie. Matrices, 

H  Matrices  *>  KDT. M_By_N~Statically_Sparse. Matrices, 

K_H_Pro<h,ct_Matrlces  »>  KDT. N_by_N~Dynamically_Sparse_Ma trices, 

H_Row_Vectors  •=>  KDT. N_By_l. Vectors, 

Measurement_Variance  Vectors 

=>  KDT. M_By_l. Vectors, 

Measurement_Vectors  =>  KDT. M_By_l .Vectors, 

K_Column_Vectors  =>  KDT. N~By_l. Vectors, 

State_Vectors  =>  KDT. N_By_l.Vec tors ) ; 

•  •  • 
begin 

SUCVASV. Update  (X 
P 
Z 

Complicated_H 
Measurement_Variance 
PropagatedPhi 
Propagated_Q 


3. 6. 5. 3. 9. 5. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


=>  My_X, 

=>  My_P , 

=>  My_Z, 

=>  My_Complicated_H, 

=>  My  Measurement_Variance, 
=>  PhI_Matrices, 

=>  P  And  Q  Matrices); 
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3. 6. 5. 3. 9. 5. 7  DECOMPOSITION 

This  LLCSC  contains  just  the  function  "Update",  which  does  the  Kalman  Update. 


3. 6. 5. 3. 9. 5. 8  PART  DESIGN 
None. 


3 . 6 . 5 . 3 . 9 . 6  UPDATE_ERROR_COVARIANCE_MATRIX_GENERAL_FORM 

This  unit  is  a  generic  procedure  which  computes  the  updated  covariance  matrix 
resulting  from  the  processing  of  a  single  component  of  the  measurement  vector, 
Z.  This  routine  uses  the  general  form  of  the  calculation. 


3. 6. 5. 3. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R183. 


3. 6.5. 3. 9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  parn 
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|  Name 

|  Base  Type 

|  Description  | 

| State_Indices 

I 

(discrete 

1 

(Index  to  the  arrays  which  depend 
|  on  the  number  of  states 

1 

| Measurement_Indices 

| 

1 

(discrete 

1 

1 

|  Index  to  the  arrays  which  depend 
on  the  number  of  measurements 

( 

Kalman  Filter 

1 

| floating 

(Elements  contained  in  the 

j  Elements 

i 

j  point  type 

l 

j  Kalman  Filter  aggregates 

1 

| P_Matrices 

1 

| private 

1 

I 

(Data  type  for  private  n  x  n  P 
(matrix 

i 

1 

|H_Matrices 

1 

( private 

l 

1 

|Data  type  for  private  H  matrix 

1 

|H_Rov  Vectors 

1 

| private 

1 

| 

(Private  vector  representing  a 
jrov  of  the  H  matrix 

1 

|K_H_Product_ 

|  Matrices 

) array 

1 

1 

(Private  matrix  representing 
j product  of  K  and  H  matrices 

i 

(Measurement 
j  Variance_ 

|  Vectors 

i 

| array 

1 

1 

I 

1 

| Vector  indexed  by  Measurement 
(Indices  containing  Kalman  Filter 
(Elements 

i 

1 

| K_Co lumn_Vectors 

1 

|vector 

1 

(Vector  indexed  by  State_Indices 
j  containing  Kalman_Filter_Elements 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

Type 

i  Description  | 

Active_H_Vector 

function 

Returns  the  row  of  a  (MxN)  H  Matrix  i 
that  is  referenced  j 

| 

Subtract_From_ 

Identity 

procedure 

1 

Subtracts  a  K_H_Product  matrix  from  | 
the  Identity  Matrix  (i.e.,  I  -  S)  j 

1 

ABA  Transpose 

function 

1 

Does  an  ABA  transpose  on  a  K  H 

Matrix  and  a  P  Matrix,  yielding  a  P 
Matrix 

ABA  Transpose 

l 

1 

function 

Does  an  ABA  transpose  on  a  K  Column 
Vector  and  a  Kalman  Filter  Element, 
yielding  a  P  Matrix 

|  «*" 

function 

Multiplies  a  K  Column  Vector  by  a  H 

Row  Vector,  yielding  a  K  H  Product 
Matrix 

1  ft  .  If 

1 

function 

Adds  two  P  Matrices,  yielding  a  P 
Matrix 

3. 6. 5. 3. 9. 6. 3  INTERRUPTS 


None. 


3. 6. 5. 3. 9. 6. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Kalman_Fi  1  ter_Compl i ca t ed_H_Par t s ; 
with  Kalman_Filter_Data_Types;~ 
with  Basic_Data_Types; 

•  •  • 

package  KFCompx  renames  Kalman_Filter_Complicated_H_Parts; 
package  BDT  renames  Basic_Data_Types; 

•  •  • 

type  State_Indices  is  range  1  ..  27; 

type  Measurementlndices  is  range  1  ..  5; 

package  KDT  is  new  Kalman_Filter  DataTypes 

(Stlte_lndlces  =>  State_Indices , 

Measurement_Indices  =>  Measurement  Indices, 

Intervals  =>  BDT.SecondsT; 

use  KDT; 

procedure  Update_P  is  new  KFCompx. Update_Error  Covariance_Matrix 
(State_Indices  =>  State_In3ices , 

Measurement_Indices  =>  Measurement_Indices, 

Kalman  Filter_Elements  =>  KDT.Kalman_Filter_Elements, 

P  Matrices  ”  =>  KDT.N_by_N  Symmetric. Matrices, 

H~Matrices  =>  KDT. M_By_N_Statically_Sparse. Matrices, 
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H_R°w_Vect°rs  =>  KDT.N_By_l. Vectors, 

K~H_Product_Matrices  «>  KDT.N~by~N_Dynamically_Sparse_Matrices, 

Miasurement  Variance  Vectors 

->  KDT.M_By_l. Vectors; 

K_Column_Vectors  *>  KDT.N~By_l. Vectors) ; 

*  *  * 
begin 


•  •  • 

Update_P  (P 

Complicated_H 

Measurement~Number 

K 


->  My_P, 

->  My  Complicated_H, 
■>  This  Measurement, 
->  My_K); 


3. 6. 5. 3. 9. 6. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.5. 3. 9.6.6  DECOMPOSITION 


None. 
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package  Kalman_Filter_Complicated_H_Parts  is 

pragaa  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 

type  Kalman  Filter_Elements  is  digits  <>; 

type  P_MatrTces  is  private; 

type  H_Matrices  is  private; 

type  H_Rov_Vectors  is  private; 

type  Measurement_Variance_Vectors  is  array  (Measurement_Indices) 

of  Kalman  Filter_Elements; 

type  K_Column_Vectors  is  array  (Stati_Indices) 

of  Kalman_Filter_Elements ; 
with  function  Active_H_Vector  (Source  :  H_Matricis; 

Row  :  Measurement  Indices) 
return  H_Rov_Vectors  Is  <>; 
with  function  Times_Transpose  (Left  :~P_Ma trices; 

Right  :  H~Rov_Vectors) 
return  K_Column_Vectors  is  <>; 
with  function  Dot_Product  (Left  s  H_Rov_Vectors; 

Right  :  K_Column_Vectors) 
return  Kalman_Filter_Elements  is  <>; 
with  function  "/"  (Left  j  K_Column  Vectors; 

Right  :  Kalman_Fllter_Elements) 
return  K_Column_Vectors  is  <>; 
function  ComputeKalmanGain 

(P  :  P_Mat rices; 

Measurement_Number  :  Measurement_Indices; 

Complicated_H  :  H_Matrices; 

Measurement_Variance  :  Measurement_Variance_Vectors) 

return  K_Column_Vectors; 

pragaa  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 

type  Kalman  Filter_Elements  is  digits  <>; 

type  P_MatrIces  is  private; 

type  H_Matrices  is  private; 

type  H_Row_Vectors  is  private; 

type  K_H_Product_Ma trices  is  private; 

type  K_Column_Vectors  is  array  (State_Indices) 

of  Kalman_Filter_Elements; 
with  function  Active_H_Vector  (Source  :  H_Matrices; 

Row  :  Measurement  Indices) 
return  H_Row_Vectors  Is  <>; 

with  function  Subtract_From_Identity  (Right  :  K_H_Product_Matrices) 

return  K_H_Product_Matrices  is  <>; 
with  function  (Left  :  K_Column_Vectors; 

Right  ;  H_Row_Vectors) 
return  K_H~Product_Matrices  is  <>; 
with  function  (Left  :  KJH_Product_Matrices; 

Right  :  P_Ma trices) 
return  P_Matrices  is  <>; 
procedure  Upda  t e_Er  r o  r_Co var  i  ance_Ma  t  r  i  x 

(P  _  :  in  out  P  Matrices; 


CAMP  Software  Top-Level  Design  Document 


Page  326 


Measurement_Number  :  in  Measurement_Indices; 

K  :  in  K_Column_Vectors; 

Complicated_H  :  in  H~Matrices); 

pragma  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 

type  Kalman  Filter_Elements  is  digits  <>; 

type  H_MatrTces  -  is  private; 

type  H_Rov_Vectors  is  private; 

type  Measurement_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 

type  K_Column_Vectors  is  array  (Stati_Indicis) 

of  Kalman_Filter_Elements; 

type  State_Vectors  is  array  (Stati_Indicis) 

of  Kalman_Filter_Elements; 
with  function  Active_H_Vector  (Source  :  Beatrices; 

Row  :  Measurement  Indices) 
return  H_Rov_Vectors  Is  <>; 
with  function  Dot_Product  (Left  :  H_Rov_Vectors; 

Right  :  State_Vectors) 
return  Kalman_Filter_Elements  is  <>; 
with  function  (Left  s  K_Column  Vectors; 

Right  :  Kalman_Fllter_Elements) 
return  K_Column_Vectors  is  <>; 
with  function  "+"  (Left  :  K_Column_Vectors; 

Right  :  State_Vectors) 
return  StateVictors  is  <>; 
procedure  UpdateStateVector 

(X  :  in  out  State_Vectors; 

Z  s  in  Measurement_Vectors; 

K  s  in  K_Column_Vectors; 

Measurement_Number  :  in  Measurement_Indices; 

Complicated_H  s  in  H_Matrices); 

pragaa  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 

type  Kalman  Filter_Elements  is  digits  <>; 

type  P_MatrIces  is  private; 

type  H_Matrices  is  private; 

type  K_H_Product_Katrices  is  private; 

type  H_Rov_Vectors  is  private; 

type  Measurement_Variance_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 
type  Measurement_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 

type  K_Column_Vectors  is  array  (State_lndices)  of  Kalman_Filter_Elements; 
type  State  Vectors  is  array  (State_Indices)  of  Kalman_Filter_Elements; 

with  function  Active_H_Vector  (Source  :  H_Matrices; 

Row  :  Measurement  Indices) 
return  H_Rov_Vectors  Is  <>; 

with  function  Subtract_From_Identity  (RighT  :  K_H_Product  Matrices) 

return  K_H_Product_Ma trices  is  <>; 
with  function  Times  Transpose  (Left  :  P_Matrices; 
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Right  :  H_Rov_Vectors) 
return  K_Column_Vectors  is  <>; 
with  function  Dot_Product  (Left  :  H_Rov_Vectors; 

Right  s  K_Column_Vectors) 
return  Kalman_Filter  Elements  is  <>; 
with  function  Dot_Product  (Left  :  H_Rov_Vectors; 

Right  :  State  Vectors) 
return  Kalman_Filter_Elements  is  <>; 
with  function  (Left  s  K_Column_Vectors; 

Right  :  H  Row  Vectors) 
return  K_H~Pro3uct_Matrices  is  <>; 
with  function  (Left  :  K~H_Product_Matrices; 

Right  :  P_Matrices) 
return  P_Matrices  is  <>; 
with  function  (Left  :  K_Column  Vectors; 

Right  :  Kalman_Fllter_Elements) 
return  K_Column_Vectors  is  <>; 
with  function  "/"  (Left  :  K_Column  Vectors; 

Right  :  Kalman_F’lter_Elements) 
return  K_Column_Vectors  is  <>; 
with  function  "+"  (Left  :  K_Column_Vectors; 

Right  :  State_Vectors) 
return  State  Vectors  is  <>; 

package  Sequentially_Update_CovarIance_Matrix_And_State_Vector  is 


procedure  Update 
(P 
X 

z 


Complicated_H  : 

Measurement  Variance  : 


in  out  PMatrices; 
in  out  State_Vectors; 
in  Measurement_Vectors; 
in  HMatrices; 

in  Measurement  Variance  Vectors); 


end  Sequent ially_Update_Covariance_Matrix_And_State_Vector; 

pragma  PAGE; 
generic 

type  State_Indices  is  (<>); 

type  Measurement_Indices  is  (<>); 

type  Kalman_Filter_Elements  is  digits  <>; 

type  Phi_Matrices  is  private; 

type  P_And_Q_Matrices  is  private; 

type  H_Matrices  is  private; 

type  K_H_Product_Matrices  is  private; 

type  H_Row_Vectors  is  private; 

type  Measurement  Variance_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 

type  Measurement_Vectors  is  array  (Measurement_Indices) 

of  Kalman_Filter_Elements; 
type  K_Column_Vectors  is  array  (State_Indices)  of  Kalman_Filter_Elements; 
type  State  Vectors  is  array  (State_Indices)  of  Kalman_Filter_Elements; 
with  function  Active  H  Vector  (Source  :  H  Matrices; 

Row  :  Miasurement  Indices) 
return  H_Rov_Vectors  Is  <>; 

with  function  Subtract_From_Identity  (Right  :  K_H_Product_Ma trices) 

return  K_H_Product_Mat rices  is  <>; 
with  function  Times_Transpose  (Left  :  P_And_Q~MatriceI; 

Right  :  H_Rov-Vectors) 
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return  K_Column_Vectors  is  <>; 
vith  function  Aba_Transpose  (Phi  :  Phi_Matrices; 

P  :  P_And_Q_Mat rices) 
return  P_And_(T[Ma trices  is  <>; 
vith  function  Dot_Product  (Left  :  H_Rov_Vectors; 

Right  s  K_Column_Vectors) 
return  Kalman_Filter_Elements  is  <>; 
vith  function  Dot_Product  (Left  :  H_Rov_Vectors; 

Right  :  State_Vectors) 
return  Kalman  Filter_Elements  is  <>; 
vith  function  (Left  :  K_Column_Vectors; 

Right  :  H~Rov  Vectors) 
return  K_H_Pro3uct_Matrices  is  <>; 
vith  function  (Left  :~K_H_Product_Matrices; 

Right  :  P_And_Q_Matrices) 
return  P_And_Q_Matrices  is  <>; 
vith  function  (Left  :  K_Column  Vectors; 

Right  :  Kalman_FTlter_Elements) 
return  K_Column_Vectors  is  <>; 
vith  function  (Left  :  Phi_Matrices; 

Right  :  State_Vectors) 
return  State_Vectors  is  <>; 
vith  function  "/"  (Left  s  K_Column  Vectors; 

Right  :  Kalman_Fllter_Elements) 
return  K_Column_Vectors  is  <>; 
vith  function  "+"  (Left  :  KColumnVectors; 

Right  :  StateVectors) 
return  State_Vectors  is  <>; 
vith  function  (Left  :  P_And_Q_Ma trices; 

Right  s  PAndQMa trices) 
return  P  And  Q~Matrices  is  <>; 


package  Kalman_Update  is 

State_Vectors; 

P_And_Q_Ma trices ; 
Measureinent_Vectors; 
H_Matrices;~ 

Measurement_Variance_Vectors ; 
Phi_Matrices; 
P_And_Q_Matrices) ; 


end  KalmanUpdate; 

pragma  PAGE; 
generic 

type  State_Indices 

type  Measurement_Indices 

type  Kalman  Filter_Elements 

type  PMatrlces 

type  H_Ma trices 

type  H_Rov_Vectors 

type  K_H  Product_Matrices 


is  «>); 
is  (<>); 
is  digits  <>; 
is  private; 
is  private; 
is  private; 
is  private; 


procedure  Update  (X  :  in  out 

P  :  in  out 

Z  :  in 

Complicated_H  :  in 

Measurement~Variance  :  in 

Propagated_Phi  :  in 

Propagated_Q  :  in 


type  Measurement_Variance_Vectors  is  array(  Measurement_Indices  ) 
of  Kalman  Filter  Elements; 
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type  K_Column  Vectors  is  array  (State_Indices) 
of  KaIman_Filter_Elements; 

vith  function  Active_H_Vector  (Source  :  H_Matrices; 

Row  :  Measurement  Indices) 
return  H  Row_Vectors  Is  <>; 

with  function  Subtract_From_Identity  (Righl  :  K_H_Product_Matrices) 

return  K_H~Product_Matrices  is  <>; 
vith  function  Aba  Transpose  (A  :  K_H_Product_MaIrices; 

B  s  P_Matrices  )  return  P  Matrices  is  <>; 
vith  function  Aba  Transpose  (A  :  K_Column  Vectors; 

B  :  Kalman_Fllter  Elements  ) 
return  P_Ma trices  Is  <>; 
vith  function  (Left  :  K_Column_Vectors; 

Right  :  H  Row  Vectors) 
return  K  H~Procfuct_Ma trices  is  <>; 
vith  function  "+"  (Left  :-P_Matrices; 

Right  :  PMatrices) 
return  P  Matrices  is  <>; 

procedure  Upda  t  e_Er ror  Covar  i  ance_Ma  t  r  i  x_Gene  r a  l_Form 
(  P  :  in  out  P  Matrices; 


Measurement  Number  : 

in 

Measurement  Indices; 

K  ~  : 

in 

K_Column_Vectors ; 

Complicated_H  : 

in 

H_Matrices; 

Measurement_Variance  : 

in 

Measurement_Variance_Vectors  ); 

end  Kalman_F  i  1 1  e  r_Compl  i  ca  t  ed_H_Par  t  s ; 
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3.6.6  GUIDANCE  AND  CONTROL 
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3.6.6. 1  VAYPOINT_STEERING  TLCSC  (CATALOG  #P99-0) 

This  package  contains  the  CAMP  parts  required  to  do  the  waypoint  steering 
portion  of  navigation. 

The  following  three  waypoints  are  required  to  perforin  waypoint  steering: 
o  A  :  the  last  waypoint  passed  by  the  missile 
o  B  :  the  waypoint  to  which  the  missile  is  currently  heading 
o  C  :  the  next  waypoint  to  which  the  missile  will  head 


3.6.6. 1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

1 

Requirements  Allocation  | 

Steering_Vector_Operations 

Steering  Vector  Operations  with  Arcsin 

1 

1 

i 

R170,  R171 

Compute  Turn  Angle  and  Direction 

R172 

Crosstrack  And  Heading  Error  Operations 

i 

R173,  R174,  R175 

Distance_to_Current_Vaypoint 

Distance  to  Current  Waypoint  with  Arcsin 

i 

i 

R176 

Compute  Turning  and  Nonturning  Distances 

R177 

TurnTestOperations 

i 

R178,  R179,  R180 

3.6.6. 1.2  INPUT/OUTPUT 
EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  table  describes  the  data  types  exported  by  this  part: 


|  Name  |  Range  |  Description 


Tu rn i ng_D i r ec t i ons 

|  Left  Turn,  1 

j  RigKtJTurn  j 

Turning_Statuses 

|  Turning,  ! 

j  Not_Turning  | 

Indicates  if  the  missile  needs  to  make 
a  right  or  a  left-hand  turn  to  go  to 
the  next  waypoint 

Indicates  whether  or  not  the  missile  is 
currently  turning 


3. 6. 6. 1.3  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3. 6. 6. 1.4  LOCAL  ENTITIES 
None. 

3. 6. 6. 1.5  INTERRUPTS 
None. 

3.6.6. 1.6  TIMING  AND  SEQUENCING 
None. 

3. 6. 6. 1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 6. 1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type 

|  Description  | 

Steering  Vector 

generic 

Provides  the  capability  to  initialize  | 

Operations 

package 

and  update  the  steering  vectors; 
uses  the  assumption  that  alphas 
sin(alpha)  when  computing  segment 

BC  distance 

Steering  Vector 

generic 

Provides  the  capability  to  initialize 

Operations_wi tK_ 
Arcsin 

package 

and  update  the  steering  vectors; 
does  not  use  the  assumption  that 
alpha-sin(alpha)  when  computing 
segment  BC  distance 

Compute  Turn  Angle 

generic 

Computes  the  tangent  of  1/2  the  turn 

and  Direction 

procedure 

angle,  along  with  the  turn  direction 

Crosstrack  and 

generic 

Computes  the  crosstrack  and  heading 

Heading_Error 

Operations 

package 

error  for  a  missile  in  turning  and 
nonturning  flight 

Distance  to  Current 

generic 

Computes  the  distance  from  missile 

Waypoint 

function 

position  to  current  waypoint,  B; 
uses  the  assumption  that  alpha= 
sin(alpha)  when  doing  its 
computations 

Distance  to  Current 

generic 

Computes  the  distance  from  missile 

Waypoint_wlth_ 

Arcsin 

function 

position  to  current  waypoint,  B; 
does  not  use  the  assumption  that 
alpha-sin(alpha)  when  doing  its 
computations 

Compute  Turning  and 

generic 

Computes  missile  turning  distance 

Nonturning_Distances 

procedure 

projected  onto  current  course 
segment,  AB,  and  the  missile  non¬ 
turning  distance  measured  along  the 
next  course  segment,  BC 

Turn  Test  Operations 

generic 

Contains  operations  to  determine  if 

package 

the  missile  should  be  in  turning  or 
nonturning  flight 

3. 6. 6. 1.9  PART  DESIGN 

3. 6. 6. 1.9.1  STEERING_VECTOR_OPERATIONS  (CATALOG  IP100-0) 

This  package  contains  operations  to  do  the  following: 

o  Initialize  the  waypoint  steering  vectors  when  supplied  with 
the  latitude  and  longitude  of  the  past,  current,  and  next 
waypoints 

o  Update  the  waypoint  steering  vectors  when  supplied  with  the 
latitude  and  longitude  of  the  "new"  waypoint,  C. 

The  waypoint  steering  vectors  for  a  course  segment,  extending  from  waypoint  A 
to  waypoint  B,  are  the  segment  unit  normal  vector  (UN_B)  and  the  segment  unit 
tangent  vector  (UT_B). 

This  part  makes  the  assumption  that  alphasin(alpha)  when  calculating  Segment_- 
BC  Distance. 
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3. 6. 6. 1.9. 1.1  REQUIREMENTS  ALLOCATION 


The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  |  Requirements  Allocation 


|  Initialize  |  R170 
j  Update  j  R171 


3. 6. 6. 1.9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


|  Indices 

discrete 

Used  to  dimension  UnitVectors 

1 

type 

|  Earth_ 

floating 

Data  type  used  to  define  the  radius -of 

j  Distances 

point  type 

the  Earth 

j  Earth_Positions 

floating 

Data  type  used  to  define  latitude  and 

point  type 

longitude  measurements 

j  Segment_ 

floating 

Data  type  used  to  defined  waypoint  segment 

j  Distances 

point  type 

distances 

j  Sin_Cos_Ratio 

floating 

Data  type  used  to  define  results  of  a  sine 

point  type 

or  cosine  function 

j  Uni t_Vec tors 

array 

Array  of  "Sin_Cos_Ratio"  dimensioned  by 

Indices 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Earth_Radius 

Earth_Distances 

N/A 

|  Radius  of  the  Earth  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 
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|  Name 

Type  |  Description  | 

***** 

function  |  Operator  defining  the  operation: 

j  Earth  Distances  *  Sin  Cos  Ratio  ■>  Segment  Distances 

If /M 

function  |  Operator  defining  the  operation: 

|  Unit  Vectors  /  Sin  Cos  Ratio  ■>  Unit  Vectors 

Cross 

procedure  |  Cross  product  function  ~ 

Product 

1 

Vector 

function  j  Calculates  the  length  of  a  vector 

LengtK 

1 

Sin  Cos 

procedure  |  Calculates  the  sine  and  cosine  of  an  input  value 

3. 6. 6. 1.9. 1.3  LOCAL  ENTITIES 
Data  structures: 

This  part  maintains  the  following  data: 

1)  Unit  radial  vector  to  waypoint  B 

2)  Unit  radial  vector  to  waypoint  C 

Packages : 

The  following  parts  will  be  with'd  by  this  part's  body: 

1.  Geometric_Parts  (P684) 

Subprograms : 

The  following  parts,  contained  in  the  Geometric_Parts  TLCSC, 
will  be  instantiated  in  this  part's  body  and  used  by  the  units 
in  this  LLCSC: 

1.  Compute_Unit_Radial_Vector 

2 .  Compu  t  e_Segmen  t_and_Un  it_Normal_Vector 


3.6.6. 1.9. 1.4  INTERRUPTS 


None. 


3. 6. 6. 1.9. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Waypoint_Steering; 

with  Basic  DataTypes;  use  Basic_Data_Types; 
with  CoordInate~Vector_Matrix  Algebra; 
with  VGS7 2_E1 1 i psoi  d_Engi nee rIng_Da t a ; 

•  •  • 

package  WPS  renames  Vaypoint_Steering; 
package  BDT  renames  Basic  Data_Types; 
package  CVMA  renames  CoordInate_Vector_Matrix  Algebra; 
package  WGS72  renames  WGS72_Ellipsoid_EngineerIng_Data; 
•  •  • 

type  Indices  is  (X,  Y,  Z); 
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package  Unit_Vector_Opns  is  new  CVMA. Vector_Operations  ... 

use  Unit  Vector_Opns; 

subtype  Unit_Vectors  is  Uni t_Vector_Opns. Vectors; 

•  •  • 

function  Cross_Prod  is  new  CVMA.Cross_Product  ... 

•  •  • 

package  Unit_Vector_Scalar  Opns  is  new 

CVMA.Vector_ScaIar_Operations  ... 

•  •  • 

package  Steering_Vector_Opns  is  new 

VPS.Sleering_Vector_Operations 
(Indices  *>  Indices, 

Earth_Distances  *>  BDT. Meters, 

Earth_Positions  =>  Earth_Position_Radians, 

Segment_Di stances  ->  BDT. Miters, 

Sin_Cos_Ratio  «>  BDT.  Trig.  Sin_Cos_Ratio, 

Unit  Vectors  *>  Unit  VectorsT 

EartK_Radius  ■=>  WGS75. Semimajor  Axis, 

"/"  *>  Unit_Vector_ScaIar_Opns."/" 

Cross_Product  =>  CrossProd," 

Sin  Cos  «=>  BDT. Trig. Sin  Cos); 


t  •  • 


Lat  A 

s  BDT.Earth_Position_Radians; 

Lat_B 

:  BDT.Earth_Position_Radians; 

Lat_C 

:  BDT.Earth_Position~Radians; 

Long_A 

:  BDT.Earth_Position_Radians; 

LongB 

:  BDT.Earth_Position_Radians; 

Long  C 

:  BDT.Earth_Position_Radians; 

UN  B 

j  Uni t_Vec tors; 

UN  C 

j  UnitVectors; 

UT  B 

s  Uni t_Vec tors; 

UT_C 

:  Unit_Vectors; 

BC  Distance 

:  BDT. Meters; 

begin 

Steering_Vector_Opns . Ini t ialize 


(Waypoint_A_Lat 

*>  Lat  A, 

Waypoint  _A~Long 

■>  Long  A, 

Waypoint_B_Lat 

->  La  t_B , 

Vaypoint_B~Long 

=>  Long_B, 

Waypoint_C_Lat 

Lat  C, 

Waypoint_C  Long 

«>  Long  C, 

Uni t_NormaI_B 

->  UN  B, 

Uni t_Normal_C 

=>  UN  C, 

Unit~Tangent_B 

->  UT"B, 

Uni t "Tangent _C 

=>  UT"C, 

Segmen  t  _BC_D i s  t  an  ce 

=>  BC_Distance) ; 

3. 6. 6. 1.9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.6. 1.9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 

|  Name 

Type  | 

Description  | 

Initialize 

procedure  | 

1 

1 

Initializes  the  waypoint  steering  vectors  when 
supplied  with  the  latitude  and  longitude  of 
the  last,  current,  and  next  waypoints 

Update 

procedure  | 

1 

1 

Updates  the  waypoint  steering  vectors  when 
supplied  with  the  latitude  and  longitude  of  a 
"new"  next  waypoint,  C 

3. 6. 6. 1.9. 1.8 

PART  DESIGN 

None. 


3. 6. 6. 1.9. 2  STEERINGVECTOROPERATIONSWITHARCSIN  (CATALOG  IP1047-0) 

This  package  contains  operations  to  do  the  following: 

o  Initialize  the  waypoint  steering  vectors  when  supplied  with 
the  latitude  and  longitude  of  the  past,  current,  and  next 
waypoints 

o  Update  the  waypoint  steering  vectors  when  supplied  with  the 
latitude  and  longitude  of  the  "new"  waypoint,  C. 

The  waypoint  steering  vectors  for  a  course  segment,  extending  from  waypoint  A 
to  waypoint  B,  are  the  segment  unit  normal  vector  (UN_B)  and  the  segment  unit 
tangent  vector  (UT_B). 

This  part  does  not  make  the  assumption  that  alphasin(alpha)  when  computing 
Segment_BC_Distance. 


3. 6. 6. 1.9. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  |  Requirements  Allocation  | 


|  Initialize  | 
j  Update  1 


3. 6. 6. 1.9. 2. 2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

1 

Description  | 

Indices 

discrete 

type 

1 

1 

Used  to  dimension  Unit_Vectors 

Earth 

floating 

1 

Data  type  used  to  define  the  radius  of 

Distances 

point  type 

1 

the  Earth 

Earth  Positions 

floating 

1 

Data  type  used  to  define  latitude  and 

point  type 

longitude  measurements 

Segment 

floating 

1 

Data  type  used  to  defined  waypoint  segment 

Distances 

point  type 

1 

distances 

Sin  Cos  Ratio 

floating 

1 

Data  type  used  to  define  results  of  a  sine 

point  type 

or  cosine  function 

Uni t_Vec tors 

array 

1 

Array  of  "Sin  CosRatio"  dimensioned  by 
Indices 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

|  Value 

|  Description  | 

|  Earth_Radius 

Earth_Distances 

|  N/A 

]  Radius  of  the  Earth  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

«*" 

function 

Operator  defining  the  operation: 

Earth  Distances  *  Sin  Cos  Ratio  ■>  Segment  Distances 

fl/lf 

function 

Operator  defining  the  operation: 

Unit  Vectors  /  Sin  Cos  Ratio  «>  Unit  Vectors 

Arcsin 

function 

Arcsine  function 

Cross 

procedure 

Cross  product  function 

Product 

Vector 

function 

Calculates  the  length  of  a  vector 

LengtK 

Sin_Cos 

procedure 

Calculates  the  sine  and  cosine  of  an  input  value 

3. 6. 6. 1.9. 2. 3  LOCAL  ENTITIES 
Data  structures: 

This  part  maintains  the  following  data: 
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1)  Unit  radial  vector  to  waypoint  B 

2)  Unit  radial  vector  to  waypoint  C 

Packages : 

The  following  parts  will  be  with'd  by  this  part's  body: 

1.  Geometric_Parts  (P684) 

Subprograms: 

The  following  parts,  contained  in  the  Geometric_Parts  TLCSC, 
will  be  instantiated  in  this  part's  body  and  usid  by  the  units 
in  this  LLCSC: 

1.  Compute_Unit_Radial_Vector 

2.  Compute_Segment_and_Unit_Normal_Vector_with  Arcsin 


3. 6. 6. 1.9. 2. 4  INTERRUPTS 


None. 


3. 6. 6. 1.9. 2. 5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 
with  WaypointSteering; 

with  Basic  DataJTypes;  use  Basic_Data_Types; 
with  CoordTnateVectorMatrix  Algebra; 
with  VGS72_Ellipsoid_EngineerTng_Data; 

•  •  • 

package  WPS  renames  Waypoint_Steering; 
package  BDT  renames  Basic  Data_Types; 
package  CVMA  renames  CoordInate_Vector_Matrix  Algebra; 
package  WGS72  renames  WGS72_Ellipsoid_EngineerTng_Data; 
•  •  • 

type  Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_Vector_Opns  is  new  CVMA. Vector_Operations 
use  Unit_Vector_OpnI; 

subtype  Unit_Vectors  is  Unit_Vector_Opns. Vectors; 

•  •  • 

function  Cross_Prod  is  new  CVMA.Cross_Product  ... 

•  •  • 

package  Unit_Vector_Scalar  Opns  is  new 

CVMA.Vector_ScaIar_Operations  . . . 

package  Steering_Vector_Opns  is  new 

WPS.Steering_Vector_Operatio  _/i  th_Arcsin 


(Indices 
Earth_Distances 
Earth_Positions 
Radians 

Segment_Dis  tances 
Sin_Cos~Ratio 
Unit  Vectors 
EartK  Radius 


®>  Indices, 

=>  BDT. Meters, 

=>  Earth_Position_Radians, 
=>  BDT. Trig. Radians, 

=>  BDT. Meters, 

=>  BDT. Trig. Sin_Cos_Ratio, 
=>  Uni t_Vec tors, 

=>  WGS72. Semimajor  Axis, 
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Lat_A 

Lat~B 

Lat_C 

Long_A 

Long_B 

Long_C 

UN_B 

UN_C 

UT_B 

UT_C 

BC_Di stance 
•  •  • 

begin 


"/"  *>  Unit_Vector_Scalar_Opns. 

Cross_Product  *>  Cross_Prod, 

Sin_Cos  =>  BDT.Trig.Sin_Cos); 

BDT .  Ear  th_Pos  i  t  i  on_Ra  d  i  ans ; 

BDT .  Ear  t  h~Pos  i  t  i  on~Rad  i  ans ; 

BDT .  Ear  t  h~Pos  i  t  i  on_Rad  i  ans ; 

BDT .  Ear  t  h^Pos  i  t  i  on~Rad  i  ans ; 

BDT .  Ear  th JPos  i  t  i  on_Rad  i  ans ; 

BDT .  Ear  t  h~Pos  i  t  i  on_Rad  i  ans ; 

Uni t_Vec tors; 

Unit_Vectors; 

Unit_Vectors; 

Unit_Vectors; 

BDT. Meters; 


Steering_Vector  Opns. Initialize 


(Waypoint_A_Lat 
Waypoint~A_Long 
Waypoint_B_Lat 
Way po i n t_B~Long 
Vaypoint_C~Lat 
WaypointC  Long 
Uni t_NormaI_B 
Uni  t  JNormalJJ 
UnitTangentB 
Unit  Tangent  C 
Segmen  t_BC_Dls tance 


:>  Lat_A, 
=>  Long_A, 
Lat_B, 
Long_B , 
Lat_C, 
Long  C, 

un_b7 

UN_C, 
UT_B, 

ut”c, 


=> 

.> 

.> 

.> 

-> 

«> 

e> 

.> 


m>  BC  Distance); 


3.6.6. 1.9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 6. 1.9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type  | 

|  Initialize 

procedure  | 

j  Update 

procedure  | 

Description 


Initializes  the  waypoint  steering  vectors  when 
supplied  with  the  latitude  and  longitude  of 
the  last,  current,  and  next  waypoints 
Updates  the  waypoint  steering  vectors  when 
supplied  with  the  latitude  and  longitude  of  a 
"new"  next  waypoint,  C 
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3. 6. 6. 1.9. 2. 8  PART  DESIGN 
None. 


3. 6. 6. 1.9. 3  COMPUTE_TURN_ANGLE_AND_DIRECTI ON  (CATALOG  #P101-0) 

Using  the  waypoint  steering  vectors,  this  part  computes  the  tangent  of  one-half 
the  turn  angle  along  with  the  turn  direction. 


3. 6. 6. 1.9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R172. 


3. 6. 6. 1.9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

Unit_Vectors 

private 

One-dimensional,  three-element  arrays 
defining  the  waypoint  steering  vectors 

Sin  Cos  Ratio 

floating 

Data  type  of  results  of  sine/cosine 

point  type 

operations 

Tan_Ratio 

floating 
point  type 

Data  type  of  results  of  tangent  operations 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  | 

Type 

1 

Description  | 

"+"  | 

1 

function 

1 

1 

Addition  operator  defining  the  operation:  | 

Tan  Ratio  +  Sin  Cos  Ratio  =>  Tan  Ratio  j 

"/"  j 

1 

function 

1 

1 

Division  operator  deTining  the  operation:  j 

Sin  Cos  Ratio  /  Tan  Ratio  =>  Tan  Ratio  ! 

Dot_Product  j 

function 

1 

Calculates  the  dot  product  of  tvo~Unit_Vectors  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

Type 

Mode 

Description  | 

Unit  Normal_C 

Unit_Vectors 

in 

Segment  BC  unit  normal  vector 
with  x,  y,  and  z  components 

UnitTangentB 

Unit_Vectors 

in 

Segment  AB  unit  tangent  vector 
with  x,  y,  and  z  components 

Unit  Tangent_C 

Unit_Vectors 

in 

Segment  BC  unit  tangent  vector 
with  x,  y,  and  z  components 

Tan_of_One_Half_ 
Turn  Angle 

Tan_Ratio 

out 

Tangent  of  one-half  the  angle 
between  the  current  course 
segment  and  the  next  course 
segment 

Turn  Direction 

Turning 

Directions 

out 

Indicates  if  missile  is  to 
make  a  right-  or  left-hand 
turn 

The  unit  vectors  required  by  this  part  may  be  calculated  using  the  routines 
contained  in  the  Waypoint_Steering.Steering_Vector_Operations  package. 


3. 6. 6. 1.9. 3. 3  INTERRUPTS 


None. 


3. 6. 6. 1.9. 3. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Vaypoint_Steering; 

with  Basic  Data_Types;  use  Basic_Data_Types; 

with  CoordTnate_Vector_Matrix_Algebra7 

with  General_Purpose_Math; 

•  •  • 

package  WPS  renames  Vaypoint_Steering; 

package  BDT  renames  Basic  Datatypes; 

package  CVMA  renames  CoordInate_Vector_Matrix_Algebra; 

package  GPMath  renames  General_Purpose_Math; 

•  •  • 

type  Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_Vector_Opns  is  new  CVMA.Vector_Operations  ... 
use  Unit_Vector_Opns; 

subtype  Unit_Vectors  is  Unit_Vector_Opns .Vectors; 

•  •  • 

package  Unit_Vector_Scalar  Opns  is  new 

CVMA.Vector_ScaIar_Operations  . . . 

•  •  • 

procedure  Comp_Turn_Angle_and_Direction  is  new 

WPS .  Compu  te_Turn_Angle_and_Di  rec  t  ion 
(Unit_Vectors~  *>  Unit_Vectors, 

Sin_Cos  Ratio  =>  BDT. Trig. Sin_Cos  Ratio, 
Tan_RatIo  ->  BDT .Trig. Tan_Ra  tTo , 

Dot  Product  =>  Unit  Vector_Opns.Dot_Product) ; 
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UN  C 
UT“B 
UT'C 

Tan_Value 
Turn  Direction 


Uni t_Vec tors; 
Unit~Vectors; 
Unit~Vectors; 
Tan_Ratio; 

WPS7Turning_Directions; 


begin 


Comp_Turn_Angle_and_Di rec t  i  on 
(Unit_Normal~C 
Unit_Tangent_B 
Unit_Tangent_C 
Tan_of  One_Half_Turn_Angle 
Turn  Direction 


=>  UN_C, 

=>  UT_B, 

=>  UT_C, 

=>  Tan_Value, 

=>  Turn  Direction); 


3.6.6. 1.9. 3.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 6. 1.9. 3. 6  DECOMPOSITION 
None. 


3.6.6. 1.9.4  CROSSTRACK_AND_HEADING_ERROR_OPERATIONS  (CATALOG  #P102-0) 

This  part  contains  the  routines  required  to. compute  the  crosstrack  and  heading 
errors  for  a  missile  in  turning  or  nonturning  flight. 

3. 6. 6. 1.9. 4.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 

|  Name  |  Requirements  Allocation  | 

|  Compute_Vhen_Turning  |  R173 

j  Compute_When_Not_Turning  |  R175 

j  Compute  |  R174  j 


3.6.6. 1.9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

# 
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|  Name 

Type 

Description  | 

Navigation  Indices 

discrete 

Data  type  used  to  dimension  Velocity 

type 

Vectors 

Uni t_Ind ices 

discrete 

type 

Data  type  used  to  dimension  Unit_Vectors 

Angles 

floating 
point  type 

Data  type  of  angular  measurements 

Earth  Distances 

floating 

Data  type  of  distance  measurements 

point  type 

used  to  defined  Earth  radius 

Segment  Distances 

floating 

Data  type  used  to  measure  segments  of 

point  type 

the  flight 

Sin  Cos  Ratio 

floating 

Data  type  of  results  of  sine/cosine 

point  type 

operations 

Tan_Ratio 

floating 
point  type 

Data  type  of  tangent  operations 

Velocities 

floating 
point  type 

Data  type  of  velocity  measurements 

Unit  Vectors 

array 

Array,  dimensioned  by  Unit  Indices,  of 

Sin  Cos  Ratio 

Velocity  Vectors 

array 

Array,  dimensioned  by  Navigation 

Indices,  of  Velocities 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

1 

Value 

1 

Description  | 

E(ast) 

|  Navigation 

1 

'FIRST 

1 

Used  to  access  first  element  of 

j  Indices 

1 

1 

1 

1 

1 

arrays  dimensioned  by  Navigation_ 
Indices 

N(orth) 

|  Navigation 

1 

'SUCC(E) 

1 

Used  to  access  second  element  of 

j  Indices 

1 

1 

1 

1 

arrays  dimensioned  by  Navigation_ 
Indices 

U(p) 

|  Navigation 

1 

'LAST 

1 

Used  to  access  last  element  of 

j  Indices 

1 

I 

1 

1 

1 

arrays  dimensioned  by  Navigation_ 
Indices 

X 

j  Unit  Indices 

1 

'FIRST 

1 

Used  to  access  first  element  of 

j  Indices 

1 

1 

1 

1 

arrays  dimensioned  by  Unit_ 

Indices 

Y 

j  Unit  Indices 

1 

'SUCC(X) 

1 

Used  to  access  second  element  of 

j  Indices 

1 

1 

1 

1 

1 

arrays  dimensioned  by  Unit_ 

Indices 

Z 

|  Unit  Indices 

1 

'LAST 

1 

Used  to  access  last  element  of 

j  Indices 

1 

1 

1 

1 

1 

arrays  dimensioned  by  Unit_ 

Indices 

Earth  Radius  Earth 

! 

n/a 

1 

Radius  of  the  Earth 

1 

j  Distances 

1 

1 

Subprograms : 
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The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

function 

Multiplication  operator  defining  the  operation: 
Sin_Cos_Ratio  *  Earth_Distances  => 

Segment  Distances 

II*  It 

function 

Multiplication  operator  defining  the  operation: 
Sin_Cos_Ratio  *  Segment_Distances  => 
Segment~Distances 

n*ii 

function 

Multiplication  operator  defining  the  operation: 

Segment  Distances  *  INTEGER  *>  Segment  Distances 

***** 

function 

Multiplication  operator  defining  the  operation: 
INTEGER  *  Sin  Cos  Ratio  =>  Sin  Cos  Ratio 

***** 

function 

Multiplication  operator  defining  tni  operation: 
Distances  *  Velocities  =>  Tan  Ratio 

***** 

function 

Multiplication  operator  defining  the  operation: 

Sin  Cos  Ratio  *  Velocities  =>  Velocities 

II  /II 

function 

Division~operator  defining  the  operation: 

Velocities  /  Velocities  *>  Tan  Ratio 

Dot_ 

Product 

function 

Dot  product  function 

Sqrt 

function 

Square  root  function 

Arc tan 

function 

Arctangent  function 

3. 6. 6. 1.9. 4. 3  LOCAL  ENTITIES 


None. 


3. 6. 6. 1.9. 4. 4  INTERRUPTS 


None. 


3. 6. 6. 1.9. 4. 5  TIMING  AND  SEQUENCING 

The  following  units  may  be  used  to  calculate  the  input  values 
required  by  units  in  this  package: 

o  Waypoint_Steering.Distance_to_Current_Waypoint 

o  Waypoint_Steering.Steering~Vector_Operations. Initialize  and  Update 
o  Waypoint_Steering.Compute_Turn_Angle_And_Direction 

The  following  shows  a  sample  usage  of  this  part: 

with  Waypoint_Steering; 

with  Basic_Data_Types;  use  Basic_Data_Types; 
with  General_Purpose_Math; 
with  Coord inate_Vector_Algebra; 
with  WGS72_Ellipsoid_Engineering_Data; 

package  WPS  renames  Waypoint_Steering; 


•  •  • 
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package  BDT  renames  Basic_Data_Types; 
package  GPMAth  renames  General_Purpose_Math; 
package  CVMA  renames  Coordinate_Vector_Algebra; 
package  WGS72  renames  VGS72_Ellipsoid_Engineering_Data; 


type  Navi gation_Ind ices  is  (E,  N,  U); 
type  Unit_Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_VOpns  is  new  CVMA. Vector_Operat ions  ... 
package  Veloci ty_V0pns  is  new  CVMA. Vector_Operat ions  ... 
package  Sqrt_Pkg  is  new  GPMath.Square_Root  ... 


subtype  Unit_Vectors  is  Unit_VOpns. Vectors; 
subtype  Veloci ty_Vec tors  is  Veloci ty_V0pns. Vectors; 


package  Cross track_and_Hdg_Error_Opns  is  new 

VPS. Cross track_and  Heading_Error_Operations 
(Navigation_IndIces  ->  Navigation_Indices, 


Unit_Indices  => 
Angles  *> 
Ear th_Di stances  => 
Segment_Distances  *> 
Sin_Cos  Ratio  «> 
TanRatlo  «> 
Velocities  «> 
Uni  t_Vec  tors  •=> 
Velocity  Vectors  «> 
Earth  Ra3ius  -> 


Unit_lndices, 

BDT .Trig. Radians , 

BDT. Meters, 

BDT. Meters, 

BDT. Trig. Sin_Cos  Ratio, 
BDT . Tr ig . Tan_Ra  t  To , 

BDT . Me  tersperSecond , 
UnitVectors  , 

Veloci tyVectors  , 

VGS72 . Semi ma j or_Ax i s , 


DotProduct 

Sqrt 

Arc tan 


*>  Unit_VOpns.Dot_Product, 
■>  Sqrt_Pkg.Sqrt, 

■>  BDT. Trig. Arctan) ; 


UR_M 

UN_B 

Griid_Vel 

Crositrack_ Error 
Heading_Error 


Unit_Vectors; 
Unit_Vectors; 
Veloci ty_Vectors 
BDT. Meters; 

BDT. Radians; 


begin 


Cross track_and  Hdg_Error  Opns. Compute  When_Not_Turning 
(Unit_RadiaI  M  =>  OR  M, 

UnitNormalB  ->  UN”B, 

Ground_Velocity  =>  Grnd_Vel, 

Cross track_Error  =>  Crosstrack_Error , 

Heading_Error  =>  Heading_Error) ; 


3.6.6. 1.9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3. 6. 6. 1.9. 4. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type  |  Description 


Compute_Vhen_Turning 
Compu  t  e_When_No  t  _Turn  i  ng 
Compute 


procedure 


procedure 


procedure 


Computes  crosstrack  and  heading 
error  for  a  missile  in  turning 
flight 

Computes  crosstrack  and  heading 
error  for  a  missile  in  nonturning 
flight 

Computes  crosstrack  and  heading 
error  for  a  missile 


3.6.6. 1.9. 4. 8  PART  DESIGN 
None. 

3. 6. 6. 1.9. 5  DISTANCE JTO  CURRENT  VAYPOINT  (CATALOG  #P103-0) 

This  part  computes  the  distance  from  the  missile's  position  to  the  current 
waypoint,  B. 

This  part  uses  the  assumption  that  alpha-sin(alpha)  for  its  calculations. 

3.6.6. 1.9.5. 1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R176. 

3.6.6. 1.9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

Description  | 

Unit  Vectors 

private 

One  dimensional,  three-element  array  of 

Sin  Cos  Ratio 

floating 

Sin  Cos_Ratio 

Results  of  sine/cosine  operations 

Tan  Ratio 

point  type 
floating 

Results  of  tangent  operation 

Earth 

point  type 
floating 

Data  type  of  distance  measurements 

Distances 

point  type 

involving  the  radius  of  the  Earth 

Segment 

floating 

Data  type  of  distance  measurements 

Distances 

point  type 

involving  navigation  segments 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

|  Description  | 

|  Earth_Radius 

|  Earth_Distances 

N/A 

|  Radius  of  the  Earth  j 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

Dot  Product  | 

|  function 
j  function 

|  Computes  the  dot  product  of  two  unit  vectors 
j  Multiplication  operator  defining  the  operation: 
j  Sin_Cos_Ratio  *  Earth_Distances  »> 
j  Segment^Di stances 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  |  Mode  |  Description 


Unit 

Radial  M 


Unit  Vectors 


in 


|  Unit_ 
j  Tangent_B 


Unit  Vectors 


in 


Unit  radial  vector  to  the  missile  | 

extending  outward  from  the  origin  j 

of  the  Earth-centered  reference  | 

frame  j 

Segment  AB  unit  tangent  vector  j 


The  unit  vectors  may  be  calculated  using  the  Vaypoint_Steering.  Steering_- 
Vector_Operations  routines. 


CAMP  Software  Top  Level  Design  Document 


Page  351 


3. 6. 6. 1.9. 5. 3  INTERRUPTS 
None. 


3.6.6. 1.9. 5. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Waypoint_Steering; 

with  Basic  Data_Types;  use  Basic_Data_Types; 

with  CoordTnate_Vector_Algebra; 

with  WGS72_Ellipsoid  Engineer ing_Data; 

package  WPS  renames  Waypoint_Steering; 

package  BDT  renames  Basic  Data_Types; 

package  CVMA  renames  CoordInate_Vector_Algebra; 

package  WGS72  renames  VGS72_Ellipsoid_Engineering_Data; 

•  •  • 

type  Unit_Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_VOpns  is  new  CVMA. VectorOperat ions  ... 

•  •  • 

subtype  Unit_Vectors  is  Uni t_V0pns. Vectors 5 
•  •  • 

function  Dist  to_Current_Vaypoint  is  new 

VFS . Dis  tance_to_Curren  tVaypoin  t 

(Unit_Vectors  ■>  Unit  Vectors, 

Sin_Cos  Ratio  »>  BDT. Trig. Sin_Cos  Ratio, 

Tan_RatIo  ->  BDT. Trig. Tan_RatIo, 

Ear th_Di stances  ■>  BDT. Meters, 

Segment_Distances  ->  BDT. Meters, 

Earth_Radius  ->  WGS72.Semimajor_Axis, 

Dot_Product  «>  Unit_VOpns.Dot_Product) ; 

•  •  • 

UR_M  :  Uni t_Vec tors; 

UT_B  :  Unit_Vectors; 

Dist_to_B  :  BDT. Meters; 

begin 
•  •  • 

Dist_to  B  Dist  to  Current  Waypoint 

(Unit_Radial~M  *>  UR_M, 

Unit~Tangent_B  =>  UT~B); 


3.6.6. 1.9. 5. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 6. 1.9. 5. 6  DECOMPOSITION 


None. 
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3 . 6 . 6 . 1 . 9 . 6  DISTANCE_TO_CURRENT_VAYPOINT_VITH_ARCSIN 

This  part  computes  the  distance  from  the  missile's  position  to  the  current 
vaypoint,  B. 

This  part  does  not  use  the  assumpting  that  alpha>sin(alpha)  when  doing  its 
computations. 


3. 6. 6. 1.9. 6.1  REQUIREMENTS  ALLOCATION 
None. 


3. 6. 6. 1.9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

Description  | 

Unit  Vectors 

private 

One  dimensional,  three-element  array  of 

Sin  Cos  Ratio 

Sin  Cos  Ratio 

floating 

Results  of  sine/cosine  operations 

point  type 

Tan  Ratio 

floating 

Results  of  tangent  operation 

point  type 

Earth 

floating 

Data  type  of  distance  measurements 

Distances 

point  type 

involving  the  radius  of  the  Earth 

Segment 

floating 

Data  type  of  distance  measurements 

Distances 

point  type 

involving  navigation  segments 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

|  Description  | 

|  Earth  Radius 

|  Ear th_Di stances 

N/A 

|  Radius  of  the  Earth  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name  |  Type  |  Description 


Arcsin 


function 


Dot_Product  j  function 
function 


Arcsine  function  (must  return  radians,  NOT 
degrees) 

Computes  the  dot  product  of  two  unit  vectors 
Multiplication  operator  defining  the  operation: 
Sin_Cos_Ratio  *  Earth_Distances  => 

Segment~Di stances 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  |  Mode  j  Description 


Unit 

Radial  M 


Unit  Vectors 


in 


Unit_ 
Tangent  B 


Unit  Vectors 


in 


Unit  radial  vector  to  the  missile 
extending  outvard  from  the  origin 
of  the  Earth-centered  reference 
frame 

Segment  AB  unit  tangent  vector 


The  unit  vectors  may  be  calculated  using  the  VaypointSteering.  Steering- 
Vector_Operations  routines. 


3. 6. 6. 1.9. 6. 3  INTERRUPTS 


None. 


3. 6. 6. 1.9. 6. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Waypoint_Steering; 

with  Basic  Data_Types;  use  Basic_Data_Types; 

with  CoordInate~Vector_Algebra; 

with  VGS72_Ellipsoid_Engineering_Data; 

•  •  • 

package  VPS  renames  Waypoint  Steering; 

package  BDT  renames  Basic  Datatypes; 

package  CVMA  renames  CoordInate~Vector_Algebra; 

package  VGS72  renames  WGS72_Ellipsoid_Engineering_Data; 

•  •  • 

type  Unit_Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_VOpns  is  new  CVMA.Vector_Operations  ... 

•  •  • 

subtype  Unit_Vectors  is  Uni t_VOpns. Vectors; 

•  »  i 

function  Dist_to_Current_Waypoint  is  new 

WPS.Distance_to_Current_Vaypoint_vith_Arcsin 
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(Unit_Vectors 
Sin_Cos  Ratio 
Tan~RatIo 
Earth  Distances 
Segment_Distances 
Earth  Radius 
Dot_Product 

•  •  • 

UR_M  :  Unit_Vectors; 

UT_B  :  Uni t_Vec tors; 

Dist_to_B  :  BDT. Meters; 

•  •  i 

begin 
•  •  • 

Dist_to  B  5=  Dist  to_Current  Waypoint 

(Unit_Radial~M  =>  UR_M, 
UnitTangentB  *>  UT~B)i 


3. 6. 6. 1.9. 6. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


*>  Unit  Vectors, 

*>  BDT.frig.Sin_Cos  Ratio, 
*>  BDT. Trig. Tan~RatIo, 

«>  BDT. Meters, 

*>  BDT. Meters, 

->  WGS72. Semimajor  Axis, 

■>  Unit_VOpns.Dot_Product) ; 


3. 6. 6. 1.9. 6. 6  DECOMPOSITION 


None. 


3.6.6. 1.9.7  COMPUTE_TURNING_AND_NONTURNI NG  DI STANCES  (CATALOG  #P104-0) 

This  part  computes  the  missile  turning  distance  projected  onto  the  current 
course  segment,  AB,  and  the  missile  nonturning  distance  measured  along  the  next 
course  segment,  BC. 


3.6.6. 1.9.7. 1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R177. 

3. 6. 6. 1.9. 7. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

Description 

1 

|  Distances 

|  Tan  Ratio 

1  " 

floating 
point  type 
floating 
point  type 

Data  type  of 

Data  type  of 

distance  measurements  | 

1 

results  of  tangent  operation  1 

1 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|  «*« 

1 

|  function 

1 

|  Multiplication  operator  defining  the  operation:  | 

j  Distances  *  Tan  Ratio  =>  Distances 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  |  Mode  |  Description 


Tan  of  One_ 
HaTf_Turn_ 
Angle 

TanRatio 

in 

Tangent  of  1/2  the  angle  between 
current  course  segment  and  next  course 
segment 

Segment_BC_ 

Distance 

Distances 

in 

Great  circle  arc  length  between  way- 
points  B  and  C 

Turn  Radius 

Distances 

in 

Desired  missile  turn  radius 

Turnlng_ 

Distance 

Distances 

nut 

Distance  from  the  point  of  tangency  of 
the  turn  circle  and  the  current  course 
segment  AB  to  the  current  waypoint,  B 

Nonturning 

Distance 

Distant# 

( 

Distance  from  the  point  of  tangency  of 
the  turn  circle  and  the  next  course 
segment  BC  to  the  next  waypoint,  C 

These  input  values  may  be  calculated  using  the  following  parts: 
o  Waypoint_Steering.Compute_Turn_Angle_And  Direction 
o  Waypoint_Steering.Steering_Vector_OperatIons. Initialize  and  Update 


3. 6. 6. 1.9. 7. 3  INTERRUPTS 


None. 


3. 6. 6. 1.9. 7. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Waypoint  Steering; 


CAMP  Software  Top  Level  Design  Document 


Page  356 


with  Basic_Data_Types;  use  Basic_Data_Types; 

•  •  • 

package  VPS  renames  Vaypoint_Steering; 
package  BDT  renames  Basic_Data_Types; 

•  •  • 

procedure  Comp_Turn_And_Nonturn_Dist 

VPS.Compute_Turning_and_Nonturning_Distances 
(Distances  *>  BDT. Meters, 

Tan_Ratio  ■>  BDT. Trig. Tan  Ratio); 


Tan_Value 
BCDist 
Turn_Rad 
TurnDist 
Nonturn  Dist 


BDT. Trig. Tan  Ratio; 
BDT. Meters; 

BDT. Meters; 

BDT. Meters; 

BDT. Meters; 


begin 


•  •  • 

Comp  Turn  And_Nonturn_Dist  is  new 
(Tan_oI_One_Half_Turn_Angle  »> 


Segment  BC_Distance  => 
Turn  Radius  ■=> 
Turning  Distance  -> 
NonturnIng_Distance  «> 

•  •  • 


Tan  Value, 
BC_5ist, 
Turn_Rad , 
Turn~Dist, 
Nonturn  Dist); 


3. 6. 6. 1.9. 7. 5  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 6. 1.9. 7. 6  DECOMPOSITION 


None. 


3. 6. 6. 1.9. 8  TURN_TEST_OPERATIONS  (CATALOG  #P105-0) 

This  part  contains  the  operations  required  to  determine  if  a  missile  should  be 
in  turning  or  nonturning  flight. 


3. 6. 6. 1.9. 8.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  |  Requirements  Allocation 


|  StopTest  |  R178  | 

|  Start_Test  |  R179  j 
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3.6.6. 1.9. 8. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  folloving  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description  | 

|  Distances 

floating 

|  Data  type  of  distance  measurements  | 

3. 6. 6. 1.9. 8. 3  LOCAL  ENTITIES 


Non*. 


3.6.6. 1.9. 8. 4  INTERRUPTS 


None. 


3. 6. 6. 1.9. 8. 5  TIMING  AND  SEQUENCING 

The  folloving  parts  may  be  used  to  compute  the  input  values  required 
by  the  units  in  this  package: 
o  Waypoint_Steering. Distance  to_Current_Vaypoint 
o  Waypoint_Steering.Compute_Turning_and~Nonturning_Distances 

The  folloving  shovs  a  sample  usage  of  this  part: 

vith  Basic  Data_Typesj  use  Basic_Data_Types; 
vith  WaypoTnt_S tee ring; 

•  •  • 

package  BDT  renames  Basic  Datatypes; 
package  WPS  renames  WaypoTnt_Steering; 

•  •  • 

package  Turn_Test_Opns  is  nev 

WPS. Turn  Test_Operations 

(Distances’^  BDT. Meters); 

•  •  • 

Dist_to_B  :  BDT. Meters; 

Nonturn_Dist  :  BDT. Meters; 

Lead_Dist  :  BDT. Meters; 

Turn_Stat  :  WPS.Turning_Statuses; 

•  •  • 

begin 
•  •  • 

Turn_Stat  :=  Turn_Test_Opns.Stop_Test 

(Distance_to_B  “  =>  Dist_to_B, 

Nonturning_Distance  =>  Nonturn_Dist, 

Lead  Distance  *>  Lead  Dist); 
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3.6.6. 1.9. 8. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 6. 1.9. 8. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Stop  Test 

! 

|  function 

1 

|  Indicates  if  the  missile 
nonturning  flight 

should 

be 

in  | 

1 

|  Start  Test 

1 

|  function 

1 

|  Indicates  if  the  missile 
j  turning  flight 

should 

be 

in  | 

1 

3. 6. 6. 1.9. 8. 8  PART  DESIGN 
None. 
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package  Waypoint_Steering  is 


—  set  up  required  types- 


type  Turning_Directions  is  (Left  Turn,  Right_Turn); 
type  Turning_Statuses  is  (Turning,  Not_Turning) ; 


pragma  PAGE; 
generic 

type  Indices  is  (<>); 

type  Earth_Distances  is  digits  <>; 

type  Ear th_Posit ions  is  digits  <>; 

type  Segment_Di stances  is  digits  <>; 

type  Sin_Cos_Ratio  is  digits  <>; 

type  Unit  Vectors  is  array  (Indices)  of  Sin_Cos_Ratio; 

Earth  Radius  :  in  Earth_Distances ; 

with  function  (Left  :  EarthDistances; 

Right  :  Sin_Cos_Ratio)  return  SegmentDistances  is  <>; 
with  function  "/"  (Left  :  Unil  Vectors; 

Right  :  Sin_Cos_Ratio)  return  Unit_Vectors  is  <>; 
with  function  Cross_Product  (Left  Unit_Vectors; 

Right  i  Unit~Vectors) 
return  Unit  Vectors  is  <>; 
with  function  Vector_Length  (Input  :  Uni t_Vec tors) 

return  Sin_Cos_Ratio  is  <>; 
with  procedure  SinCos  (Input  :  in  EarthPositions; 

Sine  j  out  Sin_Cos_Ratio; 

Cosine  s  out  SinCosRatio)  is  <>; 
package  Steering_Vector_Operations  is 


procedure  Initialize 

(Vaypoint_A_Lat  :  in 

Vaypoint_A_Long  :  in 

Waypoint_B~Lat  :  in 

Vaypoint_B~Long  :  in 

Waypoint^CLat  :  in 

Vaypoint_C  Long  :  in 

Unit_NormaI_B  :  out 

Unit~Normal~C  :  out 

Unit_Tangent_B  :  out 

Unit_Tangent~C  :  out 

Segment_Bc_Dlstance  :  out 


Earth_Positions; 

Earth_Positions; 

Earth_Positions; 

Earth_Positions; 

Ear th_Posit ions; 

Earth~Positions; 

Unit_Vectors; 

Unit~Vectors; 

Unit_Vectors; 

Unit~Vectors; 

Segmint_Distances) ; 


procedure  Update 

(Vaypoint_C_Lat  :  in 

Waypoint_C_Long  :  in 

Unit_NormaI_B  :  out 

Unit~Normal~C  :  in  out 

Unit~Tangent_B  :  out 

Unit_Tangent_C  :  in  out 

Segmint_Bc_Distance  :  out 


Earth_Positions; 

Earth_Positions; 

Unit_Vectors; 

Unit_Vectors; 

Uni t_Vectors; 
Unit~Vectors; 
Segment_Distances) ; 


end  Steering_Vector_Operations; 


pragma  PAGE; 
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generic 

type  Indices  is  (<>); 

type  Earth_Distances  is  digits  <>; 

type  Earth_Positions  is  digits  <>; 

type  Radians  is  digits  <>; 

type  Segment_Distances  is  digits  <>; 

type  Sin_Cos_Ratio  is  digits  <>; 

type  Unit  Vectors  is  array  (Indices)  of  Sin_Cos_Ratio; 

Earth  Radius  :  in  Earth  Distances; 

vith  function  (Left  s  Earth_Distances; 

Right  :  Radians)  return  Segment_Di stances  is  <>; 
(Left  :  Unit_Vectors; 

Right  :  Sin_Cos_Ratio)  return  Unit_Vectors  is  <>; 
vith  function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Radians  is  <>; 
vith  function  Cross_Product  (Left  s  Unit_Vectors; 

Right  :  Unit_Vectors) 
return  Unit  Vectors  is  <>; 
vith  function  Vector_Length  (Input  :  UnTt_Vectors) 

return  Sin_Cos_Ratio  is  <>; 
vith  procedure  Sin_Cos  (Input  :  in  Earth~Positions; 

Sine  :  out  Sin_Cos_Ratio; 

Cosine  :  out  Sin_Cos  Ratio)  is  <>; 
package  Steering_Vector_Operations_With_Arcsin  Is 


vith  function  "/" 


procedure  Initialize 

(VaypointALat 
Vaypoin  tALong 
VaypointBLat 
VaypointBLong 
WaypointCLat 
Vaypoint_C  Long 
Unit_NormaI_B 
Unit_Normal_C 
Unit_Tangent_B 
Unit_Tangent  C 
Segmen  t_Bc_Dls  tance 


in  Earth_Positions; 
in  EarthPositions; 
in  EarthPositions; 
in  EarthjPositions; 
in  Earth_Positions; 
in  Earth  Positions; 
out  Unit_Vectors; 
out  Unit_Vectors; 
out  Unit_Vectors; 
out  Unit_Vectors; 
out  Segment_Distances); 


procedure  Update 

(Vaypoint_C_Lat  s  in 

Vaypoint_C  Long  s  in 

Unit_NormaI_B  :  out 

Unit_Normal~C  :  in  out 

Unit_Tangent_B  :  out 

Unit_Tangent  C  :  in  out 

Segmen t_Bc_Dls  tance  :  out 


Earth_Positions; 

£fii»h  Positions; 

Unit_Vectors; 

Unit~Vectors; 

Unit_Vectors; 

Unit_Vectors; 

Segment_Distances) ; 


end  Steering_Vector_Operations_Vith_Arcsin; 

pragma  PAGE; 
generic 

type  Unit_Vectors  is  private; 
type  Sin_Cos  Ratio  is  digits  <>; 
type  Tan~RatIo  is  digits  <>; 
vith  function  "+"  (Left  :  Tan_Ratio; 

Right  s  Sin~Cos_Ratio)  return  Tan_Ratio  is  <>; 
vith  function  "/"  (Left  s  Sin~Cos  Ratio; 

Right  :  Tan~RatIo)  return  Tan_Ratio  is  <>; 
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with  function  Dot_Product  (Left  :  Unit_Vectors; 

Right  s  Uni t_Vec tors) 
return  Sin  Cos  Ratio  is  <>; 
procedure  Compute  Turn  Angle  And  Direction 


(Unit_Normal  C 
Unit_TangenI_B 
Unit_Tangent~C 
Tan_Of  One_Half_Turn_Angle 
Turii  Direction 


in  Unit_Vectors; 

in  Unit~Vectors; 

in  Unit~Vectors; 

out  Tan  Ratio; 
out  Turning  Directions); 


pragma  PAGE; 


generic 

type  Navigation_Indices 

is  (<>); 

type  Unit  Indices 

is  (<>); 

type  Angles 

is  digits  <>; 

type  Earth  Distances 

is  digits  <>; 

type  Segment  Distances 

is  digits  <>; 

type  Sin_Cos  Ratio 

is  digits  <>; 

type  Tan  Ratio 

is  digits  <>; 

type  Velocities 

is  digits  <>; 

type  Unit_Vectors 

is  array  (Unit_Indices)  of  Sin_Cos_Ratio; 

type  Velocity  Vectors 

is  array  (Navigation_Indices)  of  Velocities; 

E 
N 
U 
X 

y 
z 

Earth  Radius 
with  function 


in  Navigation_Indices 
in  Navigation_Indices 
in  Navigation_Indices 
in  Unit_Indices 
in  Unit^Indices 
in  Unit  Indices 
in  EartK  Distances; 


Nav i ga t i on_Ind ices'  FIRST ; 
Navigation_Indices'SUCC(E) ; 
Navigation  Indices'LAST; 

Uni t_Ind i ces ' FIRST ; 

Uni tlndices' SUCC(X); 

Uni t~Ind ices'  LAST; 


vith  function 


(Left  s  SinCos  Ratio; 

Right  :  Earth_Dlstances) 

return  SegmentDistances  is  <>; 

(Left  ;  Sin_Cos_Ratio; 

Right  :  Segment "Distances) 

return  Segment  Distances  is  <>; 


with 

function 

(Left 

Segment  Distances; 

Right 

INTEGER) 

return 

with 

function 

n*ii 

(Left 

INTEGER; 

Right 

Sin  Cos  Ratio) 

return 

with 

function 

(Left 

Segment  Distances; 

Right 

Velocities) 

return 

with 

function 

n*ii 

(Left 

Sin_Cos  Ratio; 

Right 

Velocities) 

return 

with 

function 

n  /  ii 

(Left 

Velocities; 

Right 

Velocities) 

return 

with  function  Dot_Product  (Left  :  Unit_Vectors; 

Right  :  Unit~Vectors) 
return  Sin_Cos_Ratio  is  <>; 
with  function  Sqrt  (Input  :  Segment_DistInces) 

return  Segment_Distances  is  <>; 
with  function  Arctan  (Input  :  TanRatio)  return  Angles  is  <>; 
package  Crosstrack_And_Heading_Error_Operations  is 


procedure  Compute_When_Turning 

(Distance_To_B  :  in 
Nonturning  Distance  :  in 
Unit  Radial  M  :  in 


Segment_Di stances; 
Segmen  t_Di stances; 
Unit  Vectors: 


CAMP  Software  Top-Level  Design  Document 


Page  362 


Unit_Normal_B 
Uni t~Tangen t_B 
Turn_Di recti on 
Ground_Veloci ty 
Turn_Radius 
Cross  t  rack_Er ror 
Heading_Error 


:  in  Unit_Vectors; 

:  in  Uni t~Vec tors; 

:  in  TurnIng_Directions; 
s  in  Velocity_Vectors; 

:  in  Segment_Distances; 

:  out  Segment~Di stances; 

:  out  Angles); 


procedure  Compute_Vhen  Not_Turning 
(UniT_RadTal_M  :  in 
Unit_Normal_B  :  in 
Ground_Velocity  :  in 
Cross  t  rackEr ror 
Heading  Error 


Unit_Vectors; 
Unit_Vectors; 
Veloci ty_Vectors ; 
out  Segment_Distances; 
out  Angles); 


procedure  Compute 

(Distance_To_B 
Nonturning  Distance 
UnitRadialM 
Unit_Normal_B 
Unit_Tangent_B 
Turn_Di recti on 
Turn_Status 
Ground_Veloci ty 
TurnRadius 
Cross  t  rack_Er ror 
HeadingError 


in  Segment_Di stances; 
in  Segment_Di stances; 
in  Unit_Vectors; 
in  Unit_Vectors; 
in  Unit  Vectors; 
in  TurnIng_Directions; 
in  Turning_Statuses; 
in  Velocity  Vectors; 
in  Segment_f)i stances; 
out  SegmentDistances; 
out  Angles); 


end  Crosstrack_And_Heading_Error_Operations ; 


pragma  PAGE; 
generic 

type  UnitVectors  is  private; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan_RatIo  is  digits  <>; 

type  Earth_Distances  is  digits  <>; 

type  Segment_Distances  is  digits  <>; 

Earth  Radius  :  in  Earth_Distances; 

with  function  Dot_Product  (Left  T  Unit_Vectors; 

Right  :  Unit_Vectors) 
return  Sin_Cos_Ratio  is 
Sin_Cos_RatioT 
Earth  Distances) 


<>; 


vith  function  (Left 
Right 

return  Segment_Distances  is  <>; 
function  Distance_To  Current_Vaypoint 

(Unit_Ra3ial_M  :  Unit_Vectors; 

Unit~Tangent  B  :  Unit~Vectors)  return  Segment  Distances; 


pragma  PAGE; 
generic 

type  Unit_Vectors 

type  Radians 

type  Sin_Cos  Ratio 

type  Tan_RatIo 

type  Earth_Distances 

type  Segment_Distances 

Earth  Radius- 


is  private; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 

:  in  Earth  Distances; 
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vith  function  Arcsin  (Input  :  Sin_Cos  Ratio)  return  Radians  is  <>; 
with  function  Dot_Product  (Left  :  UnIt_Vectors; 

Right  s  Unit~Vectors) 
return  Sin_Cos_Ratio  is  <>; 
with  function  (Left  :  Radians; 

Right  :  Earth_Distances) 
return  Segment_Distances  is  <>; 
function  Distance_To  Current_Vaypoint_Vith_Arcsin 
(Unit~Ra3ial_M  :  Unit_Vectors7 

UnitJTangent_B  :  Unit_Vectors)  return  Segment_Distances; 


pragaa  PAGE; 
generic 

type  Distances  is  digits  <>; 
type  Tan_Ratio  is  digits  <>; 
with  function  "*"  (Left  :  Distances; 

Right  :  Tan_Ratio)  return  Distances  is  <>; 
procedure  Compu t e_Tu rn i ng_And_Non t u r n i ng_D istances 

(Tan  Of  One  Half  Turn  Angle  :  in  Tan  Ratio; 


Segment  Bc_Di stance 
Turn  RaHius 
Turning  Distance 
NonturnIng_Distance 

pragaa  PAGE; 
generic 

type  Distances  is  digits  <>; 
package  Turn_Test_Cperations  is 

function  Stop  Test 

(SistanceTo  B 
Nonturning_Bistance 
LeadDi stance 

function  Start  Test 

(Dlstance_To_B 

Turning_Distance 

Lead_Distance 

end  Turn_Test_Operations; 


:  in  Distances; 

:  in  Distances; 

:  out  Distances; 

:  out  Distances); 


:  Distances; 

:  Distances; 

:  Distances)  return  Turning_Statuses; 


:  Distances; 

:  Distances; 

:  Distances)  return  Turning_Statuses; 


end  Waypointsteering; 
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3. 6. 6. 2  AUTOPILOT  TLCSC  (CATALOG  IP301-0) 

This  package  provides  operational  parts  to  perform  autopilot  functions.  Each 
part  is  designed  as  an  Ada  generic  package,  where  the  generic  parameters  vill 
specify  the  data  types  of  the  input  and  output  signals  and  the  values  needed  by 
the  packages  to  perform  their  actual  processing. 

The  method  used  in  developing  this  design  is  to  offer  a  package  vhich  requires 
actual  subprograms  to  be  used  in  performing  the  low  level  functions.  The  part 
user  vill  have  constructed  these  low  level  subprograms  prior  to  instantiating 
the  package.  If  the  data  types  used  in  instantiating  the  autopilot  parts  are 
the  same  as  those  used  in  instantiating  the  appropriate  low  level  functions, 
then  the  low  level  functions  vill  default;  the  user  need  not  include  those 
functions  in  the  instantiation  of  the  autopilot  part. 

There  are  no  exceptions  raised  at  the  TLCSC  level. 


3. 6. 6. 2.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

1  Type 

Req.  Allocation  | 

Integral  Plus  Proportional 

|  generic  package 

1 

R048 

Pitch  autopilot 

|  generic  package 

l 

R059 

Lateral/Directional  autopilot 

1 

|  generic  package 

1 

R064 

3. 6. 6. 2. 2  INPUT/OUTPUT 
None. 


3. 6. 6. 2. 3  UTILIZATION  OF  OTHER  ELEMENTS 

This  package  does  not  with  other  library  units.  However,  applications 
using  this  part  should  with  the  following  parts: 

1.  Signal  Processing  Parts 

2.  Autopilot  Data  Types 


3. 6. 6. 2. 4  LOCAL  ENTITIES 


None 
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3. 6. 6. 2. 5  INTERRUPTS 
None. 

3. 6. 6. 2. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Autopilot,  Signal_Processing,  Autopilot_Data_Types; 
procedure  User_Application  is 

— Instantiate  packages  from  Autopilot 

begin 


end  User_Application; 


3. 6. 6. 2. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 6. 2. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type  | 

Description  | 

Integral  plus 

1 

generic  | 

This  package  exports  the  subprograms 

proportional 

package  j 

to  perform  the  integral  plus 

gain 

1 

1 

i 

proportional  gain.  It  also  allows 
for  the  initialization  of  the 
integrator  state. 

Pitch  Autopilot 

generic  | 

Performs  the  pitch  autopilot 

package | 

1 

1 

1 

operations  needed  to  produce  a  nev 
value  for  elevator  commands.  It  also 
initializes  the  pitch  dynamics. 

Lateral/ 

generic  | 

Performs  the  lateral/directional  auto- 

Directional 

package | 

pilot  operations  to  produce  new 

Autopilot 

1 

values  for  the  aileron  and  rudder 
commands.  It  also  initializes  the 
roll  and  yaw  dynamics. 
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3. 6. 6. 2. 9  PART  DESIGN 

3. 6. 6. 2. 9.1  INTEGRAL  PLUS  PROPORTIONAL  GAIN  (CATALOG  IP302-0) 

This  part  implements  the  calculations  and  logic  necessary  to  implement  an 
integral  plus  proportional  gain. 


3. 6. 6. 2. 9. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

|  Requirements  Allocation  | 

|  In  tegral_Plus_Propor  t  ionalGain 

|  R048  | 

3. 6. 6. 2. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

I  Input  Signals 

|  generic  float  | 

Type  of  values  input  to  part 

j  Gains 

j  generic  float  j 

Type  of  gain  applied  to  input 

|  Integrated  Signals!  generic  float  | 

Input  signal  put  through 

1 

1  1 

integrator 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Initial 

j  ProportIonal_Gain 

|  Gains 

|  Initial  value  of  proportional  gain  | 
applied  to  input  signal  j 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

1  Type  | 

Description  | 

j  function  | 

Overloads  Input  Signals  *  Gains  return 

Integrated  Signals  for  proportional  gain 

Tustin 

1  function  1 

Performs  Tustin  integrator  with  limit 

1  Integrate)  j 

3. 6. 6. 2. 9. 1.3  LOCAL  ENTITIES 
None. 


3. 6. 6. 2. 9. 1.4  INTERRUPTS 
None. 


3. 6. 6. 2. 9. 1.5  TIMING  AND  SEQUENCING 


Sample  usage: 

The  following  shows  a  sample  usage  of  this  part: 

with  Signalprocessing,  AutopilotDataTypes,  Autopilot; 
use  Autopilot  DataTypes; 
procedure  USER  is 

type  Command_Signals  is  new  Autopilot_Data_Types'.Roll_Commands; 
type  CommandGains  is  new 

Autopilot~Data_Types .  Degrees_To_Degrees_Per_Second_Gains ; 
type  Gained_Command_Signals  is  new 

Autopilot  Data_Types.Feedback_Rates_Degrees; 
package  TustIn_Integrator  is  new 

Signal_Process  ing .  Tus  t  in_In  t  egr  a  t  or_Vi  th_Limi  t 


(Signals 
States 

Gained_Signals 
Gains 

Ini t i al_Tus  t i n_Ga i n 
Ini tial-Signal-Level 
Initial_Time_Interval 
Ini t ial~Signal_Limi t 
use  Tustin_IntegratorJ 
package  Command  Integrator  is  new 

Autopilot.  Integral_Plus_Proportional_Gain 


Command_Signals , 

=>  Command~Signals, 

=>  Gained  Command_Signals, 
Command  Gains, ~ 

0.0,  “ 

0.0, 

1.0/64.0, 

5.0); 


.> 

-> 

B> 

.> 

=> 


(Input_Signals 
Gains 

Integrated_Signals 
Proport ional_Gain 
"**> 

Tustin_Integrate 

Command  :  Command_Signals; 

Integrated_Signal  :  Command-Signals; 
begin 

Integrated  Signal  Command  Integrator .Integrate  (Command); 


•>  Command_Signals, 
=>  Command_Gains, 

=>  Command-Signais, 
=>  0.1); 

Automatically  defaults 
Automatically  defaluts 
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Command_Integrator.Update_Gains 
(New~Proportional  Gain  «>  0.20); 
end  USER; 


3. 6. 6. 2. 9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 6. 2. 9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  | 

Type  | 

Description  | 

Integrate  | 

Function  | 

Performs  integral  plus  proportional 

1 

gain  operations. 

Update  Proportional  | 

Procedure! 

Stores  new  values  for  proportional 

Gain  j 

1 

gain.  Integral  gain  is  updated 

1 

1 

through  the  Tustin  Integrator 

1 

1 

package. 

3. 6. 6. 2. 9. 1.8  PART  DESIGN 


None. 


3. 6. 6. 2. 9. 2  PITCH  AUTOPILOT  (CATALOG  #P303-0) 

This  package  implements  the  functions  and  procedures  necessary  to  perform  a 
pitch  autopilot  control  loop  using  classical  control  theory. 


3. 6. 6. 2. 9. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  Pitch  Autopilot 

|  R059  | 

3. 6. 6. 2. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  types: 
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The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

Normal_Acceleration_ 

Commands 

Generic  Float 

Type  for  input  commands 

Accelerations 

Generic  Float 

Type  for  acceleration 
feedbacks 

Accelerat ion_Command_ 
Gains 

Generic  Float 

Gains  applied  to  accel¬ 
erations  in  state  loop 

Acceleration_Gains 

Generic  Float 

Gains  applied  to 

filtered  acceleration 
feedback 

Pitch_Rates 

Generic  Float 

Type  for  pitch  rate 
feedback 

Pitch_Rate_Gains 

Generic  Float 

Gains  applied  to 
filtered  pitch  rate 

Fin_Deflections 

Generic  Float 

Type  for  Fin  Deflection 
command 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

Initial  Integrator 

|  Acceleration 

|  Initial  gain  to 

Gain 

|  Command  Gains 

Tustin  integrator 

i  input 

Initial  Integrator 

|  Fin  Deflections 

j  Initial  limit  on 

Limit 

!  Tustin  integrator 

output 

Initial  Acceleration 

|  Acceleration  Gains 

j  Initial  gain  to 

Gain 

1 

j  filtered  accelera- 

I  tion  feedback 

Initial  Pitch  Rate 

|  Pitch  Rate  Gains 

j  Initial  gain  to 

Gain 

I 

filtered  pitch 
rate  feedback 

Initial  Proportional 

|  Acceleration 

j  Initial  gain  for 

Gain 

j  Command_GaIns 

I  proportional 
loop 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name  |  Type  |  Description 


I 


Limit 

Acceleration_ 

Filter 

Pitch  Rate  Filter 


Function 

Function 

Function 


Function 


Function 


Function 


Function 


«*" 


Function 


Perform  Limiter  function  (e.g.  R202) 
Performs  filter  function  on 
Acceleration  feedback 
Performs  filter  function  on  pitch 
rate  feedback 
Times  for  applying  gain 

to  Normal  Acceleration  commands 
Times  for  applying  gain  to 
acceleration  feedback 
Summer  to  add  input  acceleration 
command  and  filtered  acceleration 
feedback  in  autopilot  initialize 
Minus  for  calculating  normal  accel¬ 
eration  error  in  integral  loop 
Times  for  applying  gain  to 
Pitch  Rate  feedback 


3. 6. 6. 2. 9. 2. 3  LOCAL  ENTITIES 
Data  structures: 

Stores  values  for  gains. 

Packages : 

Instantiates  IntegralPlusProportional  Gain  package  (from  this  Autopilot 
package)  for  normal  acceleration  error  Integrator.  Also  instantiates  Tustin 
Integrator  (from  Signal_Processing  package)  as  required  by  Integral_Plus_- 
Proportional_Gain. 


3. 6. 6. 2. 9. 2. 4  INTERRUPTS 
None. 


3. 6. 6. 2. 9. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Signal_Processing,  Autopilot_Data_Types,  Autopilot; 
use  Autopilot_Data_Types; 
procedure  USER  is 

package  A_D_T  renames  Autopilot  Data_Types; 

type  Command_Signals  is  new  A_D_T. Acceleration_Commands_FPS2; 

type  Acceleration_Feedbacks  is  new  A_D_T. Acceleration_Feedbacks_GEES; 

type  Pitch_Rate  Feedbacks  is  new  AJ)_T,Feedback_Ratis_Degrees; 

type  Command  Gains  is  new  A~D~T. FPS2_To  Degrees_Gain; 

type  Pitch_Rate_Gains  is  new  A~D_T.DPS_To  Degrees_Gain; 

type  FinJDeflecIions  is  new  A~D~T.Fin~DeIlections_Degrees; 

type  Acceleration_Filter_Coeff icients  Is  new 

A  D  T. Acceleration  Feedbacks  FPS2; 
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type  Pitch_Rate_Filter_Coefficients  is  new 

A_D_T.Feedback_Rate_Degrees 


Normal_Accelerat ion  Command  :  Command_Signals  :«=  1.0 
Tustin_Gain  ~  :  Command  Gains  :«  0.1 
Integrator_Limit  :  Fin_DefIections  5.0 
Measured_Acceleration_Feedback  :  Acceleration_Feedbacks  :>  1.0 
Pitch_Rate_Feedback  :  Pitch_Rate  Feedbacks  :*  1.0 
Proportional_Gain  :  Command_GaTns  :■  0. 1 
Pitch_Rate_Gain  :  Pitch_Rate  Gains  0.1 
Acceleration_Gain  :  Command_GaIns  : •  0.1 
Elevator_Command  :  Gained_Command_Signals  :■  2.0 


package  Command_Limi ter  is  new 

Signal_Processing. Absolute  Limiter_With_Flag 
(Signal  Type  *>  Fln_Deflections, 

InitiaI_Absolute  Limit  ■=>  5.0); 
use  Command_Limiter;  ~  —  to  default 

package  Accelerations_Filter  is  new 

Signal_Processing.Tustin_Lag  Filter 

(Signal_Type  «>  AcceIeration_Feedbacks, 

Coef f icient_Type  «>  Acceleration_Filter_Coef ficients, 
Ini t ial_Previ ous_Inpu  t_S ignal 

■>  Measured_Acceleration_Feedback, 
Coefficient_l  »>  0.9, 

Coefficient^  ‘  «>  0.1); 

function  Acceleration_Filter 

(NormalAcceleration:  AccelerationFeedbacks) 

return  Acceleration_Feedbacks  renames  Acceleration_Filter. Filter; 

package  Pitch_Rates_Filter  is  new 

Signal_Processing . Tus t in_Lag  Filter 

(Signal_Type  *>  PitcH_Rate_Feedbacks, 

Coefficient_Type  «=>  Pi tch_Rate_Filter_Coef ficients, 

Initial_Previous_Input_Signal 

*>  Pi tch_Rate_Feedback, 

Coef ficient_l  ■>  0.9, 

Coefficient_2  =>  0.1); 

function  Pitch_Rate_Filter_(Pitch_Rate  :  Pitch_Rate_Feedbacks) 
returns  Pitch  Rate  Feedbacks  renames  Pitch  Rates  Filter. Filter; 


package  Pitch  Command  is  new  Pitch  Autopilot 


Generic  actual  types 

(Normal_Acceleration_Commands 

Accelerations 

Acceleration_Command_Gains 
Acceleration_Gains 
Pitch_Rates  ~ 

Pi tch_Rate_Gains 
Fin_Deflections 
Generic  actual  objects 

Initial_Integrator_Gain 
Ini t ial_Integrator_Limi t 
Initial_Acceleration_Gain 
Ini t ial_Pi t ch_Rate_Gain 
Initial  Proportional  Gain 


=>  Command_Signals, 

=>  Acceleration_Feedbacks, 
=>  Command_Gains, 

=>  Command_Gains, 

=>  Pitch_Rate_Feedbacks, 

=>  Pitch_Rate_Gains, 

=>  Fin_Deflections, 

=>  Tustin_Gain, 

=>  Integrator_Limit, 

=>  Acceleration_Gain, 

=>  Pitch_Rate_Gain, 
x>  Proportional  Gain 
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—  Limiter  and  filters  default  through  renamings 

—  all  overloaded  operators  default  from  Autopilot_Date  Types 

); 


begin 

—  obtain  Normal_Acceleration  Command 

—  obtain  Acceleration_  and  Pltch_Rate_Feedbacks 

Initialize_Pitch_Autopilot 

(Normal_Acceleration_Command  =>  Normal_Acceleration_Command, 
Measured  Normal_Acceleration  «>  Measured_Acceleration_Feedback, 
MeasureE_Pitch_Rate  =>  Pitch_Rate_Feedback, 

Initial~Elevator_Command  =>  Elevator_Command) ; 

Elevator_Command  :■  Pitch_Autopilot.Compute_Elevator  Command 
(Normal_Acceleration_Command  *>  Normal_AcceleratTon_Command, 
Measured  Normal_Accileration  ■>  Measured_Accelerat ion  Feedback, 
Measure3_Pitch_Rate  *>  Pitch_Rate_Feedback)T 

Pitch_Rate_Gain  :«  0.2; 

Update_Pitch_Rate_Gain  (New_Gain  =>  Pitch_Rate_Gain) ; 
Acceleration_Gain  :■  0.2; 

Update_Acceleration_Gain  (New  Gain  ■>  Acceleration); 

Proportional_Gain  :■  0.1; 

Update_Proportional_Gain  (New_Proportional_Gain  ■>  Proportional  Gain) ; 
end  USER; 


3. 6. 6. 2. 9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 6. 2. 9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type  | 

Description  | 

Initialize  Pitch  Autopilot 

|  Procedure! 

Sets  initial  state  of  pitch 

1  1 

1  1 

autopilot  loop  by  initial¬ 
izing  integr*  or  state 

Compute  Elevator  Command 

|  Function  | 

Accepts  acceleration  command, 

1  1 

!  1 

1 

1  ! 

measured  normal  accelera¬ 
tion  and  pitch  rate  and 
uses  integrator  state  to 
calculate  fin  deflection 

Update  Pitch  Rate 

j  Procedure! 

Changes  value  stored  for  gain 

Gain 

1  1 

on  pitch  rate  feedback 

Update  Acceleration 

j  Procedure! 

Changes  value  stored  for  gain 

Gain 

1  j 

on  acceleration  feedback 

Update_Integrator_Gain 

j  Procedure! 

1  1 

Changes  value  stored  for  gain 
in  integrator  loop 

Update  Integrator  Limit 

j  Procedure! 

1  1 

Changes  value  stored  for 
limit  on  integrator  output 

UpdateProportional  Gain_ 

|  Procedure! 

1  ! 

1  1 

Changes  value  stored  for  gain 
to  normal  acceleration 
error  in  integrator  loop 

3. 6. 6. 2. 9. 2. 8  PART  DESIGN 


None. 


3. 6. 6. 2. 9. 3  LATERAL_DIRECTIONAL_AUTOPILOT  (CATALOG  #P304-0) 

This  package  implements  the  functions  and  procedures  necessary  to  perform  a 
lateral  directional  autopilot  control  loop  using  classical  control  theory. 


3. 6. 6. 2. 9. 3.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

|  Requirements  Allocation  | 

|  Lateral  Directional  Autopilot 

|  R064  | 

3. 6. 6. 2. 9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

|  Type  |  Description  | 

Roll  Commands 

Generic  Float  j  Type  for  input  commands 

j  from  user  program 

Roll  Attitudes 

Generic  Float  j  Type  for  measured  missile 

j  roll  attitude 

Roll  Command  Gains 

Generic  Float  |  Gain  to  Roll  commands 

j  in  integrator  loop 

Missile  Accelerations 

Generic  Float  j  Type  for  measured  lateral 

j  acceleration 

Acceleration  Gains 

Generic  Float  j  Gains  applied  to 

j  measured  acceleration 

Rudder  Cmd  Roll  Rate 

Generic  Float  j  Gain  applied  to  roll  rate 

Gains 

|  feedback  for  rudder  cmd 

Gravitational  Acceler- 

Generic  Float  j  Type  for  measured 

ations 

gravitational  accel. 

Velocities 

Generic  Float  |  Type  for  measured  missile 

j  velocity 

Trig  Value 

Generic  Float  |  Type  for  result  of  sin 

j  function 

Fin  Deflections 

Generic  Float  |  Type  for  aileron  &  rudder 

j  commands  &  limits 

Feedback  Rates 

Generic  Float  {.Type  for  measured  roll 

j  and  yaw  rates 

Feedback  Rate  Gains 

Generic  Float  j  Gain  applied  to  yaw  and 

1  "  ‘ 

|  roll  rate  feedbacks  j 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 
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|  Name 


Type  |  Description  | 


Initial_Aileron 
Integrator_GaIn 
Ini t ial_Aileron_ 
Integrator_Limit 
Initial_Roll_Command 
Proport ionalGain 

Initial_Roll  Rate_ 
Gain  For_Alleron 
Initial  Yaw  Rate_ 
Gain  For  Aileron 
Ini tiaI_Ru3der_ 
Integrator_Gain 
Initial_Rudder 
Integrator  Limit 
Initial_Yav  Rate_ 
Gain  For  Rudder 
InitiaI_RoIl  Rate_ 
Gain  For_Rudder 
In i t i aI_Acce le r a t i on 
Proport ionalGain 


|  Roll_Command_Gains 
j  Fin_Deflections 
|  Roll_Command_Gains 


I  Feedback_Rate_ 
Gains 

Feedback_Rate_ 

Gains 

Acceleration  Gains 

Fin_Deflections 

Feedback_Rate_ 

Gains 

Rudder_Cmd_Roll_ 
Rate_Gains 
Acceleration  Gains 


Gain  in  aileron  inte¬ 
grator  loop 
Limit  on  aileron  inte¬ 
grator  output 
Proportional  gain  in 
integrator  plus  pro¬ 
portional  gain  loop 
Gain  to  measured  roll 
rate  for  aileron  cmd 
Gain  to  measured  yaw 
rate  for  aileron  cmd 
Gain  in  rudder  inte¬ 
grator  loop 
Limit  on  rudder  inte¬ 
grator  output 
Gain  to  measured  yaw 
for  rudder  command 
Gain  to  measured  roll 
rate  for  rudder  cmd 
Proportional  gain  in 
integrator  plus  pro¬ 
portional  gain  loop 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

Type 

Description  | 

|  Aileron  control  loop  limiters  and  filters  | 

Roll  Error  Limit 

function 

Limiter  for  roll  error 

Aileron  Colmand  Limit 

function 

Limit  on  command  signal  to 

aileron 

Roll  Command  Filter 

function 

Filter  applied  to  input  roll 

command 

|  Rudder  control  loop  limiters,  filters,  and  operations  | 

|  Rudder  Command  Limit 

function 

Limit  on  command  signal  to 

rudder 

|  Yaw  Rate  Filter 

function 

Filter  applied  to  measured 

yaw  rate 

j  Acceleration  Filter 

function 

Filter  applied  to  measured 

acceleration  feedback 

|  Sin 

function 

Sin  function  applied  to 

measured  roll  attitude 

|  Aileron  control  loop  gain  and  updater  functions 


«i_n 

«*«' 

function 

function 

function 

Subtracts  Roll  Attitudes  from 
RollCommands  returning  Roll_ 
Error 

Multiplies  Roll_Commands  by 
Roll_Command_Sains  for 
input  to  Aileron  integrator 
Multiplies  Feedback_Rates  for 
measured  roll  rate  by 
Feedback_Rate_Gains 
for  Fin_Def lections 

|  Rudder  control  loop  gain  and  updater  functions  | 

function 

Multiplies  Missile_Accelera- 
tions  by  Acceleration_Gains 
returns  Fin  Deflections  for 
proportional  loop  of 
integral  plus  proportional 
gain 

function 

Multiplies  Feedback_Rates  by 
Rudder_Cmd_Roll  Rlte_Gains 
returnl  Feedback  Rates 

«*« 

function 

Multiplies  Gravitational 
Accelerations  by  Trig_Value 
returns  Gravitational" 
Accelerations 

W/H 

function 

Divides  Gravitational 

Accelerations  by  Velocities 

returns  Feedback_Rates 
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EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

|  Description  | 

|  Aileron  Rudder  Commands 

1 

Record  containing  components  for  Aileron  | 
and  Rudder  Command  i 

3. 6. 6. 2. 9. 3. 3  LOCAL  ENTITIES 
Data  structures: 

Stores  values  for  gains  and  limits. 

Packages : 

Instantiates  Integral  plus  proportional  gain  package  for  aileron  roll  command 
and  for  filtered  lateral  directional  acceleration.  Also  instantiates  Tustin 
integrator  to  implement  each  of  the  integral  plus  proportional  gain  packages. 


3. 6. 6. 2. 9. 3. 4  INTERRUPTS 


None. 


3. 6. 6. 2. 9. 3. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Signal_Processing,  Autopilot_Data_Types,  Basic_Data_Types,  Autopilot; 
use  Autopilot_Data_Types,  Basic_Data_Types,  Basic_Data_Types.Trig; 
procedure  USER  is 

package  A_D_T  renames  Autopilot_Data_Types; 

package  B  D_T  renames  Basic_Data  Types; 
type  AcceIeration_Filter_CoefficIents  is  new 

AD  T.  Acceleration  Feedbacks  FPS2; 


Previous_Roll  Command  :  A_D_T.Roll  Commands_Radians  :*  1.0 

Measured_AcceIeration  Feedback  :  A-D  T. Acceleration  Feedbacks_FPS2 

t-  1.0 

Yaw_Rate_Feedback  :  A_D_T. Feedback  Rates_Radians  :=  1.0 

Aileron_Proportional_Gain  :  A~D_T.Gain_In_Radians  :*  1.0 

Aileron_Integrator_Gain  :  A~D~T.Gain_In~Radians  :«  0.1 

Aileron~Integrator~Limit  :  A_D~T.Fin_DefIections_Radians  :=  5.0 

Aileron_Command_RoIl_Rate_Gain  :  A~D~T.RPS_To_Radians_Gain  :=  0.1 

Aileron_Command~Yaw_Rate_Gain  :  A^DJT.RPS  To_Radians_Gain  :=  0.1 

Rudder_Integrator_Gain  :  A_D_T.FPS5_To  Radians_Gain  :«  0.1 

Rudder_Integrator~Limit  :  A_D_T.Fin  De£lections_Radians  :=  5.0 

Rudder_Proportional_Gain  :  A_D_T.FPS2_To_Radians_Gain  :■  0.1 
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Yaw  Rate_Gain  :  A_D_T.RPS  To_Radians_Gain  0.1; 

Rud3er_Roll_Rate_Gain  :  A_D_T . Feedback  Rates~Radians  :«  0.1; 

Acceleration_Gain  :  A~D~T.FPS2_To_Radians_Gain  : -  0.1; 

package  Roll  Error  Limiter  is  new 

STgnal_Rrocessing.Absolute_Limiter  With  Flag 

(Signal  Type  -«>  A_D_T.RolT_Commands_Radians, 

InitiaI_Absolute_Limit  ■>  A~Djr.Roll~CommandsJRadians  (5.0)); 

function  Roll_Error  Limit  (Roll_Command:  A_D_T.Roll_Commands_Radians) 
return  A  D~T.RolI_Comraands_Radians 
renames  SoIl_Error_Limi  ter .  Limi  t ; 

package  Aileron_Command_Limiter  is  new 

Signal_Processing. Absolute  Limiter_Vith  Flag 

(Signal  Type  =>  A_D_T.Fin_Deflections_Radians, 

InitiaI_Absolute_Limit  =>  AJ)_T.Fin~Deflections_Radians  (5.0)); 

function  Aileron  Command_Limit 

(Fln_Deflection:  A  D  T.Fin_Deflections_Radians) 
return  A_D  T.Fin_Deflections_Ra3ians 
renames  AiIeron_Command_Limi ter . Limi t ; 

package  Roll  Commands_Filter  is  new 

SlgnalProcess ing . Tus  t inLagFi Iter 

(Signal_Type  ~  «>  A_D_T.Roll_Commands_Radians,  ■ 

Coefficient_Type  ->  A_D~T.Roll~Commands_Radians, 

Initial_Previous_Input_Signal 

•>  Previous  RollCommand, 

Initial_Coefficient_l  «=>  A  D  T.RoIl  Commands  Radians  (0.9), 
Initial~Coefficient_2  =>  A~D~T.Roll~Commands_Radians  (0.1)); 

function  Roll_Command_Filter 

(Roll_Commands  :  A_D_T.Roll_Commands_Radians) 
return  A_D  T.Roll_Commands_Radians 
renames  RoIl_Commands_Filter . Filter ; 

package  Rudder_Command_Limiter  is  new 

Signal_Processing. Absolute_Limi  ter_Wi th_Flag 

(Signal  Type  «>  A_D_T7Fin_Deflections_Radians, 

InitiaI_Absolute_Lirait  •=>  A_D_T.Fin~Deflections_Radians  (5.0)); 

function  Rudder  Command_Limi t 

(Fin_Defliction:  A_D  T.Fin_Deflections_Radians) 
return  A_D  T.Fin_Deflections_Ra3ians 
renames  Ru3der_Command_Limi ter . Limi t ; 

package  Yaw_Rates_Filter  is  new 

Signal_Processing. Tus  t in_Lag_Fi 1 ter 

(Signal_Type  =>  A_D_T.Feedback_Rates_Radians, 

Coefficient_Type  =>  A~D~T.Feedback_Rates~Radians, 

Ini tial_Previous_Input  Signal 

=>  Yav_Rate_Feedback, 

Initial_Coefficient_l  =>  A_D~T.Feedback_Rates_Radians  (0.9), 

Initial_Coeff icient_2  ->  A_D_T.Feedback_Rates_Radians  (0.1)); 

function  Yaw  Rate  Filter 
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(Yav_Rate  ;  A  D_T.Feedback_Rates_Radians) 
return  A  D_T.Feedback_Rates  RaEians 
renames  7av_Rates_Filter. Filter; 


package  Accelerations_Filter  is  new 

S  igna  l_Pr  oc  es  s  i  ng .  Tu  s  t  i  n_Lag_F  i  1 1  e  r 

(Signal_Type  ~  ->  A_D_T.Acceleration_Feedbacks_FPS2, 

Coefficient_Type  »>  A_D~T.Acceleration_Feedbacks~FPS2, 

Initial_Previous_Input_Signal 

->  Measured_Acceleration_Feedback, 
Initial_Coeff icient_l  «>  A_D_T.Acceleration_Feedbacks_FPS2  (0.9), 

Initial_Coefficient~2  ■>  A~D2T.Acceleration~FeedbacksJFPS2  (0.1)); 


function  Acceleration_Filter 

(Lateral  Accelerations:  A_D  T.Acceleration_Feedbacks_FPS2) 
return  A_D_T.AcceIeration_Feedbacks_FPS2 
renames  Accelerations  Filter. Filter! 


package  Lat_Dir_Autopilot  is  new 

Autopilot. Lateral  Directional  Autopilot 


(Roll_Commands  «> 
Roll_Attitudes  ■> 
Roll  Command  Gains  -> 
MissIle_AcceIeratlons  -> 
Acceleration_Gains  -> 
Rudder_Cmd_Roll_Rate_Gains  -> 
Gravitational  Accelerations  ■> 
Velocities  -> 
Trig  Value  «> 
Fin  Deflections  ■> 
FeeEbackRates  -> 
Feedback  Rate  Gains  -> 


A_D_T.Roll  Command s_Radians, 

A~D~T . MissIleAt  t i tudes_Radians , 
A_D~T.Gain  In~Radians, 

A_D_T .  Ac  ceTera  t  i  on_Feedbacks_FPS2 , 
A_D~T.FPS2  To  Radians  Gain, 
A_D-T.FeedEaclt  RatesRadians, 
BDT.GEES, 

BDT .  Fee  tPerSecond , 

BDT. Trig. Sin  CosRatio, 

A_D_T.Fin  Deflections  Radians, 
A_D_T.  FeeEback_Rates_Radians , 
A_D_T.  RPSToRadiansGain , 


Initial_Aileron_Integrator_Gain 

->  Aileron_Integrator_Gain, 

Ini t ial_Aileron_Integrator_Limi t 

->  Aileron_Integrator_Limit , 
Initial_Roll_Command_Proportional  Gain 

■>  AiIeron_Proportional_Gain, 
Initial_RollJRate_Gain_For_Aileron 

«>  Aileron_Command_Roll_Rate_Gain, 
Ini  t  ial_Yaw_Rate_Gain_For_Ai  leron 

■>  Aileron_Command  Roll  Rate_Gain, 
Initial_Rudder_Integrator_Gain 

■>  Rudder_Integrator_Gain, 
Initial_Rudder_Integrator_Limit 

■=>  Rudder_Integrator_Limit, 
Initial_Yaw_Rate_Gain_For_Rudder 

■>  Yav_Rate_Gain, 
Initial_Roll_Rate_Gain_For_Rudder 

*>  Rudder_Roll_Rate_Gain, 
Initial_Acceleration_Proportional  Gain 

*>  RuEder  Propot tional_Ga in 
—  all  overloaded  operators  default 


); 


:  A_D_T.Fin_Deflections_Radians; 
:  A  D""T.Fin_Deflections-Radians; 


Aileron_Command 
Rudder  Command 
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Grav_Accelera  t i on 

Roll_Command 

Roll_Attitude 

Roll  Rate 

Yawjtate 

Velocity 

Lat  Acceleration 


A_D_T . Accelera t i on_Feedbacks_FPS2 ; 
A~D~T.Roll  Commands_Radians;~ 
A~D_T. Missile  Attitudes  Radians; 
A~D~T.  FeedbacIc_Rates_Ra3ians ; 
A~D~T.Feedback_Rates  Radians; 
B~D~T. Feet  Per_Secon3; 

A~D~T. Accelera tion_Feedbacks_FPS2; 


Aileron_Rudder_Commands  j  Lat_Dir_Autopilot . Aileron_Rudder_Commands ; 
begin 


—  obtain  Normal_Acceleration_Command 

—  obtain  Acceleration  and  Pitch  Rate  Feedbacks 


La  t_Dir_Au  topi  lot  .Initialize  Lateral_Directional_Autopilot 


(Initiai_Aileron_Comman3  *> 
Initial_Ruddar_Command  «> 
Gravitational_Acceleration  ■> 
Roll_Command  *> 
Roll_Attitude  *> 
Roll  Rate  => 
YawSate  => 
Missile_Velocity  -> 
Lateral  Acceleration  ■> 


Ai leron_Command , 
Rudder_Command , 
Grav_Accelera t ion , 
Roll~Command, 
Roll~Attitude, 
Roll_Rate, 
Yaw_Rate, 
Velocity, 

Lat  Acceleration); 


Aileron  Rudder_Commands  :■ 
(Roll  Command 


La  t_Di  r_Au  t  op  i  lo  t .  Compu  t  e_Ai  leron_Rudder_Commands 
»>  Roll  Command, 


RollAttitude 

Roll_Rate 

YawRate 

Lateral  Acceleration 
Missile_Velocity 
Gravitational  Acceleration 


«>  Roll_Attitude, 
«>  Roll_Rate, 

->  Yav~Rate| 

■>  La  ^Acceleration, 

«>  Velocity, 

■>  Grav  Acceleration); 


end  USER; 


3. 6. 6. 2. 9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 6. 2. 9. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type  ( 

Description  | 

Initialize  Lateral  Direct- 

Procedure | 

Sets  initial  states  of  later- 

ional_Autopilot 

I 

1 

al  directional  autopilot  by 
initializing  integrator 
states  of  roll  command 
and  lateral  acceleration 

Compute  Aileron  Rudder 
Commands 

Function  j 

1 

1 

1 

I 

1 

1 

Accepts  roll  command,  and 
measured  values  for  roll 
rate,  roll  attitude,  yaw 
rate,  and  lateral  acceler¬ 
ation  and  uses  integrator 
states  to  calculate  fin 
deflections  for  rudder  and 
aileron 

Update_Aileron_Integrator 

Gain 

Procedure | 

1 

i 

Changes  value  stored  for  gain 
on  roll  command  to  aileron 
integrator 

Update  Aileron  Integrator 
Limit 

Procedure | 

1 

Changes  value  stored  for 
limit  to  integrator  output 

Update  Roll_Command 
Proportional  Gain 

Procedure | 

1 

1 

Changes  value  stored  for  pro¬ 
portional  gain  in  integral 
plus  proportional  gain  loop 

Update_Roll_Rate_Gain_ 

For_Aileron 

Procedure | 

1 

1 

Changes  value  stored  for 
gain  to  measured  roll  rate 
for  aileron  control 

Update_Rudder_Integrator_ 

Gain 

Procedure | 

1 

1 

Changes  value  stored  for  gain 
to  lateral  acceleration 
value  in  integrator  loop 

Update_Rudder_Integrator_ 

Limit 

Procedure | 

1 

: 

Changes  value  stored  for 
limit  to  rudder  integrator 
output 

Update_Feedback_Rate_Gain 
For  Rudder 

1 

Procedure  j 

1 

Changes  value  stored  for 
gain  to  measure  yav  rate  in 
rudder  control  loop 

|  Update_Role_Rate_Gain_For_ 

|  Rudder 

1 

Procedure | 

1 

1 

Changes  value  stored  for  gain 
to  measured  roll  rate  for 
rudder  control  loop 

|  Update_Acceleration_ 
i  Proport ional_Gain 

Procedure | 

1 

Changes  value  stored  for  gain 
in  proportional  loop 

3. 6. 6. 2. 9. 3. 8  PART  DESIGN 


None. 
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package  Autopilot  is 
pragma  PAGE; 
generic 

type  Input_Signals  is  digits  <>; 

type  Gains  is  digits  <>; 

type  Integrated  Signals  is  digits  <>; 

Initial_ProportIonal_Gain:  in  Gains; 
vith  function  (Left  :  Input_Signals; 

Right  :  GainsJ  return  Integrated_ Signals  is  <>; 
vith  function  Tustin_Integrate  (Signal:  in  Input_Signals) 

return  Integrated_Signals  is  <>; 
package  Integral_Plus_Proportional_Gain  is 

function  Integrate  (Signal:  Input_Signals)  return  Integrated_Signals; 

procedure  Update_Proportional_Gain  (Nev_Proportional_Gain  :  in  Gains); 

end  Integral_Plus_Proprotional_Gain; 


—  Pilch  Autopilot  Package 

generic 

type  Normal_Acceleration_Commands 
type  Accelerations 
type  Acceleration  Command  Gains 
type  AccelerationGains 
type  PitchRates 
type  Pitch_Rate_Gains 
type  Fin_Deflections 

-Initial  values  for  pitch  control  loop 

Initial_Integrator_Gain  :  in  Acceleration_Command_Gains; 
Initial_Integrator_Limit  :  in  Fin_Deflections; 

Initial  Acceleration  Gain  in  Acceleration_Gains; 
Initial_Pitch_Rate_Gain  :  in  Pitch_Rate_Gains; 
Initial_Proportional_Gain  :  in  Acceleration_Command_Gains; 

—  Pitch  control  loop  limiter 

vith  function  Limit  (Elevator_Command  :  Fin_Deflections) 
return  Fin_Deflections  is  <>; 

—  Pitch  control  loop  filters 

vith  function  Acceleration  Filter  (Normal_Acceleration  :  Accelerations) 
return  Accelerations  Is  <>; 

vith  function  Pitch_Rate  Filter  (Pitch_Rate  :  in  Pitch_Rates) 
return  Pitch_Rates  Is  <>; 

—  Cain  and  updater  operations 

vith  function  "*"  (Left  :  Normal_Acceleration  Commands; 

Right  :  Acceleration_Comman3_Gains) 


is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
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return  Fin  Deflections  is  <>; 


vith  function  (Left  :  Accelerations; 

Right  :  Acceleration_Gains) 
return  Fin_Def lections  is  <>; 

vith  function  "+"  (Left  :  Normal_Acceleration_Commands; 

Right  s  Accelerations) 
return  Normal_Acceleration_Commands  is  <>; 

vith  function  (Left  :  Normal_Acceleration_Commands; 

Right  :  Accelerations) 
return  Normal  Acceleration  Commands  is  <>; 


vith  function  (Left  :  PitchRates; 

Right  s  Pitch_Rate_Gains) 
return  Fin_Def lections  is  <>; 

package  Pitch_Autopilot  is 

procedure  Initialize  Pitch_Autopilot 

(Normal  Acceleration  Command  :  in  Normal_Acceleration_Commands; 

Measured_Normal  Acceleration  :  in  Accelerations; 

Measured  Pitch_Rate  :  in  PitchJRates; 

Initial_Elevator_Command  s  in  Fin  Deflections) ; 

function  Compute  Elevator  Command 

(Normal_Acceleration_Command  :  in  NormalAccelerationCommands; 
Measured_Normal  Acceleration  :  in  Accelerations; 

Measured  Pitch_Rate  :  in  Pitch_Rates) 

return  Fin_DeI lections; 

procedure  UpdatePitchRateGain  (Nev_Gains  in  Pitch  Rate  Gains) ; 

procedure  Update_Acceleration_Gain  (Nev_Gains  in  Acceleration_Gains) ; 

procedure  Update_Integrator_Gain 

(Nev_Gain:  in  Acceleration_Conimand_Gains); 


procedure  Update_Integrator_Limit  (Nev_Limit:  in  Fin_Def lections); 

procedure  Update_Proportional  Gain 

(Nev_ProportionaI_Gain  s  in  Acceleration_Command_Gains) ; 


end  Pitch_Autopilot; 


—  — Lateral  /Directional  Autopilot  Package 

generic. 

—  types  for  Aileron  Loop 

type  Roll_Commands 
type  Roll_Attitudes 
type  Roll_Command  Gains 


is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
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—  types  for  Rudder  Loop 

type  Missile_Accelerations  is  digits  <>; 

type  Acceleration_Gains  is  digits  <>; 

type  Rudder_Cmd_Roll_Rate_Gains  is  digits  <>; 
type  Gravitational_Accelerations  is  digits  <>; 
type  Velocities  is  digits  <>; 

type  Trig_Value  is  digits  <>; 

—  types  for  both  loops 

type  Fin  Deflections  is  digits  <>; 

type  Fee3back_Rates  is  digits  <>; 

type  Feedback_Rate_Gains  is  digits  <>; 

—  Initial  values  for  aeliron  control  loop 

Initial_Aileron_Integrator_Gain  s  in  Roll_Command_Gains ; 

Initial_Aileron_Integrator~Limit  :  in  Fin  Deflections; 

Initial~Roll_Command  Proport ional_Gain  :  in  Roll  Command_Gains; 

Initial~Roll  Rate_GaTn  For_Aileron  :  in  FeedI>ack_Rate_Gains; 

Initial_Yav_Kate_Gain_For_Aileron  :  in  Feedback_Rate~Gains; 

—  Initial  values  for  rudder  control  loop 

InitialRudderlntegratorGain  :  in  AccelerationGains; 

Initial_Rudder_Integrator_Llmit  :  in  Fin  Deflections; 

Initial_Yav  Rate_Gain_For_Rudder  :  in  Feecfback_Rate  Gains; 

Initial_RolI  Rate  GainForRudder  :  in  RudderCmdRoIl  RateGains; 
InitialAcceleratlonProportionalGain  :  in  Acceleration  Gains; 

—  Aileron  control  loop  limiters  and  filler 

vith  function  Roll_Error  Limit  (Roll_Command  :  Roll_Commands) 
return  Roll_Comman3s  is  <>; 

with  function  Aileron_Command  Limit  (Fin_Def lection:  Fin_Deflections) 
return  Fin_Deflections  Is  <>; 

with  function  Roll_Command_Filter  (Roll_Command:  Roll_Commands) 
return  Roll_Commands”is  <>; 

— Rudder  control  loop  limiters,  filters,  and  trig  function 

with  function  Rudder  Command_Limit  (Fin_Def lection:  Fin_Deflections) 
return  Fin_DefIections~is  <>; 

with  function  Yaw  Rate_Filter  (Yav_Rate:  Feedback_Rates) 
return  FeedEack_Rates  is  <>; 

with  function  Acceleration_Filter  (Lateral_Acceleration:  Missile_Accelerations) 
return  Missile_Accelerations  is  <>; 

with  function  Sin  (Angle:  Roll_Attitudes)  return  Trig_Value  is  <>; 

— Aileron  control  loop  gain  and  updater  functions 
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vith  function  (Left  :  Roll_Commands; 

Right  :  Roll_Attitudes) 
return  Roll_Commands  is  <>7 

with  function  "*"  (Left  :  Roll_Commands; 

Right  :  Roll~Command_Gains) 
return  Fin_Def lections  is  <>; 

vith  function  (Left  :  Feedback_Rates; 

Right  s  Feedback~Rate_Gains) 
return  Fin_Def lections  is  <>; 

—  Rudder  control  loop  gain  and  updater  Junctions 

vith  function  "*”  (Left  :  Missile_Accelerations; 

Right  :  Acceleration_Gains) 
return  Fin_Def lections  is  <>; 

vith  function  (Left  :  Feedback  Rates; 

Right  :  Rudder_Cmd_Roll_Rate_Gains) 
return  FeedbackRates  is  <>; 

vith  function  (Left  s  Gravitational_Accelerations; 

Right  :  in  Trig_Value) 
return  Gravi  tat  ional_Accelerations  is  <>; 

vith  function  "/"  (Left  :  Gravi tat ional_Accelerat ions; 

Right  :  Velocities) 
return  FeedbackRates  is  <>; 

package  Lateral_Directional_Autopilot  is 

type  Aileron_Rudder_Commands  is  record 
Aileron_Command  s  Fin_Deflections; 

Rudder_Command  s  Fin_Def lections; 

end  record; 


procedure  Initialize  Lateral_Directional_ 
(InitiaI_Aileron  Command 
Initial_Rudder_Command 
Gravi tat ional_Accelerat  ion 
Roll_Command 
Roll_Attitude 
RollJRate 
Yav_Rate 
Missile_Velocity 
Lateral  Acceleration 


Autopilot 

in  Fin_Deflections; 
in  Fin_Deflections; 
in  Gravi tat ional_Accelerat ions; 
in  Roll_Commands7 
in  Roll~Attitudes; 
in  FeedBack_Rates; 
in  Feedback~Rates; 
in  Velocitiis; 
in  Missile  Accelerations); 


function  Compute  Aileron  Rudder_Commands 
(RolI_Comman3  : 

Roll_Attitude  : 

Roll_Rate  : 

Yaw_Rate  : 

Lateral_Acceleration  : 

Missile_Velocity  : 

Gravi  ta7ional_Accelerat  ion  : 
return  Aileron  Rudder  Commands; 


in  Roll_Commands; 
in  Roll  Attitudes; 
in  FeedEack_Rates; 
in  Feedback_Rates; 
in  Missile  Accelerations; 
in  Velocities; 

in  Gravitational  Accelerations) 


CAMP  Software  Top-Level  Design  Document 


Page  387 


procedure  Update_Aileron_Integrator_Gain 

(Nev_Gain  :~in  Roll_Command_Gains) ; 

procedure  Update_Aileron_Integrator  Limit 

(New_Limit  T  in  Fin_DeIlections) ; 

procedure  Update_Roll_Command_Proportional_Gain 
(New_Gain  :  in  Roll_Command_Gains) ; 

procedure  Update_Roll_Rate_Gain  For  Aileron 

(NewGain  :  in  Feecfbaclc_Rate_Gains) ; 

procedure  Update_Yav  Rate_Gain_For_Aileron 

(NewGain  :  in  Feedback_Rate_Gains) ; 

procedure  Update_Rudder_Integrator_Gain 

(New_Gain  T  in  Acceleration_Gains) ; 

procedure  Update_Rudder_Integrator_Limi t 

(New_Limit”s  in  Fin_Deflections) ; 

procedure  Update_Feedback  Rate_Gain  For_Rudder 

(New_Gain  :  In  Feedbaclc_Rate_Gains) ; 

procedure  UpdateRollRateGain  ForRudder 

(New_Gain  :  in  Rud3er_Cmd_Roll_Rate_Gains) ; 

procedure  Update_Acceleration_Proportional_Gain 
(New_Gain  ;  in  Acceleration_Gains) ; 

end  Lateral_Directional_Au topi lot ; 


end  Autopilot; 
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3. 6. 7.1  AIR_DATA  (PACKAGE  SPECIFICATION)  TLCSC  (CATALOG  IP309-0) 

This  TLCSC  contains  parts  which  can  be  used  to  monitor  air  conditions. 


3. 6. 7. 1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  |  Requirements  Allocation  | 


|  Compute  Outside  Air  Temperature  | 

R228 

1 

|  Compute  Pressure  Ratio 

R229 

1 

j  Compute  Mach  j 

R230 

1 

j  Compute  Dynamic  Pressure 

R231 

1 

j  Compute  Speed  0?  Sound 

R232 

1 

j  Barometric_Altitude_Integration  j 

R233 

1 

3. 6. 7. 1.2  INPUT/OUTPUT 
None. 

3. 6. 7. 1.3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.6.7. 1.4  LOCAL  ENTITIES 
None. 


3. 6. 7. 1.5  INTERRUPTS 
None. 


3.6. 7. 1.6  TIMING  AND  SEQUENCING 
None. 

3. 6. 7. 1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 7. 1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

Type  | 

Description  ! 

Compute  Outside_Air_ 
Temperature 

generic  j 
function  j 

1 

Computes  air  temperature  outside  a 
missile 

Compute  Pressure_Ratio 

1 

generic  | 
function! 

1 

Computes  pressure  ratio  from 
a  collection  of  pressures 

Compute_Mach 

1 

generic  | 
function! 

Computes  missile  mach  (velocity) 
given  pressure  ratio 

Compute_Dynamic_Pressure 

generic  | 
function! 

I 

Computes  dynamic  pressure  from 
mach  #  &  free  stream  static  pressre 

Compute_Speed  Of_Sound 

generic  | 
function  j 

l 

Computes  speed  of  sound  given  the 
temperature  of  the  air 

Barometric  Altitude 
Integration 

1 

generic  | 
package  | 

1 

Computes  barometric  altitude  by 
integration  of  the  atmospheric 
equation  of  state 

3. 6. 7. 1.9  PART  DESIGN 

3. 6. 7. 1.9.1  AIR_DATA.COMPUTE_OUTSIDE_AIR  TEMPERATURE  (FUNCTION  SPECIFICATION) 
(CATALOG  #P310-0)  “  " 

This  unit  is  a  generic  function  which  computes  air  temperature  outside  of  a 
missile. 


3. 6. 7. 1.9. 1.1  REQUIREMENTS  ALLOCATION 
This  parts  meets  CAMP  Requirement  R228 


3. 6. 7. 1.9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

Description  | 

Temperatures 

floating 
point  type 

Describes  air  temperatures 

Mach  Numbers 

floating 

Describes  air  speed  as  a  ratio  of  the 

point  type 

speed  of  sound 

Real 

floating 
point  type 

General  floating  point  type 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

| Recovery  Factor 

|  Real 

|  N/A 

|  Constant  for  computing  Air  Tempi 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  |  Type 

1 

Description  *  | 

| function 

I 

Multiplies  a  Real  by  a  Mach  Number,  yielding 

1 

1 

1 

a  Mach  Number 

| 

”/"  | function 

1 

i 

Divides  a  Temperature  by  a  Mach  Number, 

1 

I 

yielding  a  Temperature 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


Name 

1  Type 

...  i  .  ..... 

1 

Mode 

Description 

Total 

| Temperatures 

1 

in 

|Air  temperature  measured  by  the 

Temperature 

1 

| 

1 

jair  data  instruments 

Mach 

|Mach  Numbers 

in 

|Missile  airspeed  as  a  fraction 

1 

| 

| of  the  speed  of  sound 

i 

<returned  value>| Temperatures 

1 

1 

out 

|Temperature  of  the  air  outside 

of  the  missile 
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3. 6. 7. 1.9. 1.3  INTERRUPTS 


None. 


3. 6. 7. 1.9. 1.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Air_Data,  Basic_Data_Types; 
procedure  Test  is 

package  BDT  renames  Basic_Data_Types; 
subtype  Mach_Numbers  is  FLOAT; 
subtype  Real  is  FLOAT; 

function  Outside_Air_Temp  is  new  Air_Data.Compute_Outside_Air_Temperature 
(Temperatures  «>  BDT.BegreesJCelvin, 

Mach_Numbers  ■>  Mach_Numbers, 

Real  «>  Real, 

Recovery_Factor  «>  0.7); 

Total_Temp  :  BDT.DegreesJCelvin; 

Mach  :  Mach_Numbers; 

begin 

OutsideTemp  OutsideAirTemp  (TotalTemp,  Mach); 
end  Test; 


3.6.7. 1.9. 1.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 7. 1.9. 1.6  DECOMPOSITION 


None. 


3. 6. 7. 1.9. 2  AIR  DATA. COMPUTE  PRESSURE_RATIO  (FUNCTION  SPECIFICATION)  (CATALOG 
#P311-0T 

This  unit  is  a  generic  function  which  computes  pressure  ratio  from  measured 
static  pressure,  measured  impact  pressure,  and  free  stream  static  pressure. 


3.6.7. 1.9.2. 1  REQUIREMENTS  ALLOCATION 
This  parts  meets  CAMP  requirement  R229 


3. 6. 7. 1.9. 2. 2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 


CAMP  Software  Top  Level  Design  Document 


Page  395 


Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

1 

Description  | 

Pressures 

floating 

1 

Describes  pressure  (i.e.  weight  per 

point  type 

1 

1 

unit  of  area) 

Ratios 

floating 

A  unitless  floating  point  type  descri- 

point  type 

1 

ing  ratio  of  one  pressure  to  another 

Subprograms : 

The  following  table  de«  bes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

1 

| function 

1 

|  Divides  a  Pressure  by  a  Pressure,  yielding  a  | 
j  ratio  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


Name 

Type 

|  Mode 

|  Description  | 

Measured_S  t a  t i c_ 
Pressure 

Pressures 

!  in 

1 

1 

j Static  pressure  measured  by  the  j 
jair  data  system  | 

l  i 

Impact_Pressure 

Pressures 

1  in 

1 

1 

!  1 
(Measured  difference  between  totl| 
j pressure  and  static  pressure  i 

1  1 

Free  Stream_ 
StatTc_Pressure 

Pressures 

1  in 

1 

j 

(Measured  static  pressure  which  | 
jhas  been  corrected  for  errors  j 

I  i 

<re turned  value> 

Ratios 

1 

|  out 

1 

(Unitless  quantity  computed  from  ( 
{static  and  impact  pressure 

3. 6. 7. 1.9. 2. 3  INTERRUPTS 


None. 


3.6.7. 1.9. 2. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Air_Data,  Basic_Data_Types; 
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procedure  Test  is 

package  BDT  renames  Basic_Data_Types; 
subtype  Ratios  is  FLOAT; 

function  Pressure_Ratio  is  new  Air  Data.Compute_Pressure_Ratio 
(Pressures  ■>  BDT.Kgs_Per_Meter_Squared, 

Ratios  ->  Ratios)7 

Measured_Static_Pressure  :  BDT.Kgs_Per_Meter_Squared; 

Impact_Pressure  s  BDT.Kgs_Per_Meter_Squared; 

Free_Static_Pressure  :  BDT.Kgs7Per_Meter_Squared; 

Ratio  :  Ratios; 

begin 

Ratio  :■  Pressure_Ratio  (Measured_Static_Pressure, 

Impact_Pressure7 

Free_Static_Pressure) ; 

end  Test; 


3. 6. 7. 1.9. 2. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 7. 1.9. 2. 6  DECOMPOSITION 


None. 


3. 6. 7. 1.9. 3  AIR  DATA.COMPUTE  MACH  (FUNCTION  SPECIFICATION)  (CATALOG  #P312-0) 

This  unit  is  a  generic  function  which  computes  missile  mach  given  pressure 
ratio. 


3. 6. 7. 1.9. 3.1  REQUIREMENTS  ALLOCATION 
This  parts  meets  CAMP  requirement  R230. 


3. 6. 7. 1.9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name  |  Type  |  Description  | 


Mach  Numbers 

floating  |  Describes  air  speed  as  a  ratio  of  the 

point  type  j  speed  of  sound 

1 

Ratios 

1 

floating  |  A  unitless  floating  point  type  descri- 

point  type  |  ing  ratio  of  one  pressure  to  another 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value  |  Description 

1 

|C0 

|  Ratios 

| First  curve  fit  parameter 

1 

1 

1 

|C1 

j 

|  Ratios 

1 

1 

| Second  curve  fit  parameter 

1 

1 

1 

1 

|C2 

|  Ratios 

| Third  curve  fit  parameter 

1 

1 

Subprograms : 

The  following  table  describes  the  .generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|Sqrt 

i 

|  function 

|  Computes  the  square  root  of  Ratio,  yielding  a  | 

|  Mach  Number  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  | 

_ 1 

Mode 

Description 

1  . . 

(Pressure  Ratio  (Ratios 

1  ‘  !  : 
i 

in 

1 

|Unitless  quantity  computed  from 
| static  and  impact  pressures 

i 

1  !  1 
|<returned  value>|Mach  Numbers  | 

out 

(Missile  airspeed  as  a  fraction 

i  i  "  i 

j of  the  speed  of  sound 

3. 6. 7. 1.9. 3. 3  INTERRUPTS 


None. 
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3. 6. 7. 1.9. 3. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Air_Data; 
procedure  Test  is 

subtype  Ratios  is  FLOAT; 
subtype  Mach_Numbers  is  FLOAT; 

function  Computed_Mach  is  new  Air_Data.Compute_Mach 
(Ratios  ->  Ratios, 

Mach_Numbers  «>  Mach_Numbers , 

CO  ->  0.1, 

Cl  .>  0.2, 

C2  ->  0.3); 

Pressure_Ratio  :  Ratios; 

Mach  :  Mach_Numbers; 

begin 

Mach  :  =  Computed_Mach  (Pressure_Ratio) ; 
end  Test; 


3. 6. 7. 1.9. 3. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.7. 1.9. 3. 6  DECOMPOSITION 


None. 


3. 6. 7. 1.9. 4  AIR  DATA. COMPUTE  DYNAMIC  PRESSURE  (FUNCTION  SPECIFICATION)  (CATALOG 
#P313-0) 

This  unit  is  a  generic  function  which  computes  dynamic  pressure  from  missile 
mach  number  and  free  stream  static  pressure. 


3. 6. 7. 1.9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  Requirement  R231. 


3. 6. 7. 1.9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

Description  j 

Pressures 

floating 

Describes  pressure  (i.e.  weight  per 

point  type 

unit  of  area) 

Mach  Numbers 

floating 

Describes  air  speed  as  a  ratio  of  the 

point  type 

speed  of  sound 

Subprograms ; 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  |  Type  |  Description 


I"*"  | function  |  Multiplies  a  Pressure  by  a  Mach  Number, 

j  j  j  yielding  a  Pressure 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1 

Type 

|  Mode 

1 

Description 

|Free  Stream_ 
j Static  Pressure 
j  ~ 

Pressures 

1 

1  in 

I 

1 

Measured  static  pressure  which 
has  been  corrected  for  errors 

|Mach 

1 

1 

Mach  Numbers |  in 

1 

i 

Missile  airspeed  as  a  fraction 
of  the  speed  of  sound 

1 

|<re turned  value> 

Pressures 

i 

|  out 

Missile  dynamic  pressure 

3. 6. 7. 1.9. 4. 3  INTERRUPTS 
None. 


3. 6. 7. 1.9. 4. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Air_Data,  Basic_Data_Types; 
procedure  Test  is 

package  BDT  renames  Basic_Data_Types; 
subtype  Mach_Numbers  is  FLOAT; 

function  Dynamic_Pressure  is  new  Air_Data.Compute_Dynamic_Pressure 
(Pressures  =>  BDT.Kgs_Per  Meter_Squared, 

Mach  Numbers  =>  Mach  Numbers); 
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Free_Stream_Static_Pressure 

Pressure 

Mach 


BDT.Kgs_Per_Meter_Squared; 
BDT . Kgs~Per~Me  t er_Squared ; 
Mach  Numbers; 


begin 

Pressure  :■  Dynamic_Pressure  (Free_Stream_Static_Pressure, 

MachT; 

end  Test; 


3. 6. 7. 1.9. 4. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 7. 1.9. 4. 6  DECOMPOSITION 


None. 


3.6. 7. 1.9.5  AIR  DATA. COMPUTE  SPEED  OFSOUND  (FUNCTION  SPECIFICATION)  (CATALOG 
#P314-0j 

This  unit  is  a  generic  f unci ton  which  computes  the  speed  of  sound  given  the 
temperature  of  the  air. 

3. 6. 7. 1.9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R232. 

3. 6. 7. 1.9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

1 

Description  | 

Temperatures 

floating 

1 

Describes  air  temperatures 

point  type 

1 

1 

Velocities 

floating 

1 

1 

Describes  air  speed 

point  type 

1 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 
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|  Name 

1  Type 

(  Value  |  Description  | 

| Speed_0f_ 

| Sound 
| Cons tint 

(Velocities 

1 

1 

|  N/A  (Standard  speed  of  sound  at  I 

|  jsea  level  j 

1  1  1 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

ii*  n 

| function 

|  Multiplies  a  Velocity  by  a  Temperature, 

1 

1 

j  yielding  a  Velocity 

1 

Sqrt 

| function 

|  Computes  the  square  root  of  a  Temperature, 

i 

j  yielding  a  Temperature 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1 

1  Type  | 

1  1 

Mode 

|  Description 

1  ...  . 

1 

|Air  Temperature 

i  ~ 

| Temperatures  | 

i  i 

in 

(Temperature  of  the  air 

1 

i  i  i 

(<returned  value> (Velocities  | 

OUl 

1 

| Speed  of  sound  in  air 

3. 6. 7. 1.9-5. 3  INTERRUPTS 


None. 


3. 6. 7. 1.9. 5. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Air_Data,  Basic_Data_Types,  WGS72_Metric  Data; 
procedure  Test  is 

package  BDT  renames  Basic_Data_Types; 

function  Speed_Of_Sound  is  new  Air_Data.Compute_Speed_Of  Sound 
(Temperatures  =>  BDT.Degrees_KelvIn, 

Velocities  =>  BDT.Meters_Per_Second, 

Speed_Of_Sound_Constant  =>  630.0); 


Air_Temperature  :  Temperatures; 
Speed  :  Velocities; 
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begin 

Speed  l-  Speed_0f_Sound  (AirJTemperature  =>  Air_Temperature) ; 
end  Test; 


3. 6. 7. 1.9. 5. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.7. 1.9. 5. 6  DECOMPOSITION 
None. 


3. 6. 7. 1.9. 6  AIR  DATA. COMPUTE  BAROMETRIC  ALTITUDE  (PACKAGE  SPECIFICATION)  (CATALOG 
#P315-0T 

This  unit  is  a  generic  function  which  computes  barometric  altitude  by 
integration  of  the  atmospheric  equation  of  state. 


3. 6. 7. 1.9. 6.1  REQUIREMENTS  ALLOCATION 
This  parts  meets  CAMP  requirement  R233. 


3. 6. 7. 1.9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


Name 


|  Temperatures 

1 

floating  | 

1 

1 

point  type  j 

j  Pressures 

1 

1 

floating  i 

1 

1 

point  type  j 

j  Distances 

1 

1 

floating  ; 

I 

1 

point  type  j 

Molar  Gas 

1 

floating  | 

j  Constants 

1 

point  type  j 

Type  |  Description 

Describes  air  temperatures 


Describes  pressure  (i.e.  weight  per 

unit  of  area) 

Describes  translational  distances 
(e.g.,  Feet,  Meters) 

Describes  the  type  of  the  Gas  Constant j 
needed 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 
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Name  |  Type  |  Value  |  Description  | 


Gas_Constant 

|  Molar_Gas_ 

(  N/A 

(Constants- 

1 

Maximum_ 

(Pressures 

(  N/A 

Pressure_ 

1 

1 

Change 

1 

1 

Intial  Baro 

1 

(Distances 

|  N/A 

Altitude 

1 

Constant  which  describes  a 
standard  gas  constant 

Maximum  reasonable  change 
expected  in  free  stream  static 
pressure  between  two  measurement 

Barometric  Altitude  at  the  start 
of  integration 


Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

|  Description  | 

«*" 

function 

|  Multiplies  the  Gas  Constant  by  a  Pressure  | 

|  yielding  a  Distance 
l 

j "/" 

1 

function 

1  1 

(  Divides  a  Temperature  by  a  Pressure,  I 

|  yielding  a  Pressure  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


Name  (  Type 

1 

Mode  |  Description 

_  1 . .  _ 

1 

Outside_Air_  (Temperatures 

Temperature  j 

1 

Free  Stream_  | Pressures 

StatTc_Pressure  | 

<returned  value> {Distances 

1 

I 

1 

in  (Temperature  of  the  air  outside 

{ the  missile 

1 

in  (Measured  static  pressure 

j corrected  for  errors 

1 

out  | Altitude  in  feet  based  on  the 
j barometric  pressure  of  the 
j atmosphere 

3. 6. 7. 1.9. 6. 3  LOCAL  ENTITIES 


None. 
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3.6.7. 1.9. 6. 4  INTERRUPTS 


None. 


3. 6. 7. 1.9. 6. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Air_Data,  Basic_Data_Types; 
procedure  Test  is 

package  BDT  renames  Basic_Data_Types; 

function  Baro_Altitude  is  new  Air_Data.Barometric_Altitude_Integration 
(Temperatures  =>  BDT.Degrees_Kelvin, 

Pressures  «>  BDT.Kgs_Per_Meter_Squared, 

Distances  =>  BDT. Meters, 

Molar_Gas_Constants  =>  Gas  Constants, 

Gas  Constant  =>  0.04563, 

MaxImum_Pressure  Change  =>  0.9765, 

Initial_Baro_AltItude  =>  1500.0); 

Air_Temperature  :  BDT.DegreesJtelvin; 

Static  Pressure  :  BDT.Kgs_Per_Meter_Squared; 

Altitude  :  BDT. Meters; 

begin 

Altitude  :»  Baro_Altitude  (Outside_Air_Temperature  ->  Air_Temperature, 

Free_Stream_Static_Pressure  »>  Static_Pressure) ; 

end  Test; 


3. 6. 7. 1.9. 6. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 7. 1.9. 6. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type 

Description  | 

Compu  t  e_Barome  t  r  i  c_ 
Altitude 

(generic 
|  package 

1 

Computes  barometric  altitude  by  | 
integration  of  the  atmospheric  i 
equation  of  state 

3. 6. 7. 1.9. 6. 8  PART  DESIGN 


None. 
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package  Air_Data_Parts  is 


generic 

type  Temperatures  is  digits  <>; 
type  Mach_Numbers  is  digits  <>; 
type  Real  is  digits  <>; 


Recovery_Factor  :  in  Real; 

vith  function  (Left  :  Real; 

Right  :  Mach_Numbers) 
return  Mach_Numbers  is  <>; 
vith  function  "/"  (Left  :  Temperatures; 

Right  :  Mach_Numbers) 
return  Temperatures  is  <>; 


function  Compute_Outside_Air_Temperature 

(Total_Temperature  :  Temperatures; 
Mach  :  Mach_Numbers) 
return  Temperatures; 


generic 

type  Pressures  is  digits  <>; 
type  Ratios  is  digits  <>; 

vith  function  "/"  (Left  :  Pressures; 

Right  :  Pressures) 
return  Ratios  is  <>; 

function  Compute_Pressure_Ratio 

(Measured_Static_Pressure  :  Pressures; 
Impact_Pressure  :  Pressures; 

Free_Stream_Static_Pressure  :  Pressures) 
return  Ratios; 


generic 

type  Ratios  is  digits  <>; 

type  Mach_Numbers  is  digits  <>; 

CO  :  in  Ratios; 

Cl  :  in  Ratios; 

C2  :  in  Ratios; 

vith  function  Sqrt  (Source  :  Ratios) 

return  Mach_Numbers  is  <>; 

function  Compute_Mach 

(Pressure_Ratio  :  Ratios) 
return  Mach  Numbers; 


generic 

type  Pressures  is  digits  <>; 
type  Mach_Numbers  is  digits  <>; 

vith  function  (Left  :  Pressures; 

Right  :  Mach_Numbers) 
return  Pressures  is  <>; 


pragma  PAGE; 


pragma  PAGE; 


pragma  PAGE; 


pragma  PAGE; 
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function  Compute_Dynamic_Pressure 

(Free_Stream-Static_Pressure  s  Pressures; 
Mach-  -  ~  s  Mach_Numbers) 

return  Pressures; 


generic 

type  Temperatures  is  digits  <>; 
type  Velocities  is  digits  <>; 

Speed_Of_Sound_Constant  s  in  Velocities; 

vith  function  "*"  (Left  :  Velocities; 

Right  :  Temperatures) 
return  Velocities  is  <>; 
vith  function  Sqrt  (Source  :  Temperatures) 

return  Temperatures  is  <>; 

function  Compute_Speed_Of_Sound 

(Air_Temperature  :  Temperatures) 
return  Velocities; 


generic 

type  Temperatures  is  digits  <>; 

type  Pressures  is  digits  <>; 

type  Distances  is  digits  <>; 

type  Molar_Gas_Constants  is  digits  <>;. 

Gas  Constant  :  in  MolarGasConstants; 

MaxImumPressureChange  j  in  Pressures! 

Initial_Free_Stream_Pressure  :  in  Pressures; 

Initial_Temperature  :  in  Temperatures; 

Initial_Baro_Altitude  :  in  Distances; 

vith  function  (Left  :  Molar_Gas  Constants; 

Right  s  Pressures! 
return  Distances  is  <>; 
vith  function  "/"  (Left  :  Temperatures; 

Right  :  Pressures) 
return  Pressures  is  <>; 

package  Barometric_Altitude_Integration  is 

f unc t ion  Compu t e_Bar ome tric_Altitude 

(Outiide_Air_Teiriperature  :  Temperatures; 
Free_Stream_Static_Pressure  :  Pressures) 
return  Distances; 

end  Barometric  Altitude  Integration; 


pragma  PAGE; 


pragma  PAGE; 


end  Air  Data  Parts; 
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3. 6. 7. 2  FUEL_CONTROL_PARTS  TLCSC  P672  (CATALOG  IP1095-0) 

This  TLCSC  contains  parts  which  can  be  used  to  maintain  control  over  fuel  in 
missile  applications. 

3. 6. 7. 2.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

|  Requirements  Allocation  | 

|  Throttle_Command_Manager 

|  R234  | 

3. 6. 7. 2. 2  INPUT/OUTPUT 
None. 

3. 6. 7. 2. 3  UTILIZATION  OF  OTHER  ELEMENTS 


None. 

3. 6. 7. 2. 4  LOCAL  ENTITIES 
None. 

3. 6. 7. 2. 5  INTERRUPTS 
None. 


3. 6. 7. 2. 6  TIMING  AND  SEQUENCING 
None. 

3. 6. 7. 2. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 7. 2. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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j  Name  |  Type  |  Description 


Throttle_Command_Manager  | generic  |  Manages  the  throttle  command  | 

j  package  |  missile  | 


3. 6. 7. 2. 9  PART  DESIGN 

3. 6. 7. 2. 9.1  THROTTLE_COMMAND_MANAGER 

This  LLCSC  is  a  generic  package  which  manages  the  throttle  command. 


3. 6. 7. 2. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  Requirement  R234. 


3. 6. 7. 2. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types:  The  following  table  describes  the  generic  formal  types  required  by 
this  part: 


|  Name 

1  Type 

|  Description  | 

Mach_Numbers 

| floating 
j  point  type 

1 

(Represents  missile  speed  as  a 
(percentage  of  the  speed  of  sound 

1 

Mach_Number_ 

Gains 

| floating 
j  point  type 

l 

(Represents  a  gain  which  converts  from 
|Mach  Number  to  Throttle  Command 

Throttle_ 

Commands 

| floating 
j  point  type 

(Represents  a  command  to  open/close 
jthe  throttle 

Data  objects:  The  following  table  describes  the  generic  formal  objects 
required  by  this  part: 
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|  Name  |  Type  |Mode|  Description 


Initial_Mach_ 

Command 

Mach_ 

Numbers 

in 

Mach  Number  of  missile  at 
startup 

Initial  Mach_ 
Error_Llmi t 

Mach_ 

Numbers 

in 

Limit  of  Mach  Error 

Initial  Mach_ 
Feedback 

Mach 

Numbers 

in 

Mach  Feedback  from  missile 
at  startup 

Initial  Mach_ 
Error_Gain 

Mach_ 

Number_Gain 

in 

Gain  to  convert  from  mach 
error  to  raw  throttle  command 

Initial_Mach_ 

Error_Integral_ 

Limit 

Throttle_ 

Commands- 

in 

Limit  for  Mach  Error  Integral 
at  startup 

Initial  Throttle 
Command 

Throttle_ 

Commands 

in 

Throttle  Command  at  startup 

Initial_Throttle 
Command  Rate  Limit 

Throttle 

Commands 

in 

Limit  on  Throttle  Command  Rate 
at  startup 

Initial_Lower_ 

Thro  1 1 le_Command_ 
Limit 

Throttle_ 

Commands 

in 

Lower  Limit  of  Throttle 

Command 

Initial_Upper_ 

Thro  1 1 le_Command_ 
Limit 

Throttle_ 

Commands 

in 

Upper  Limit  of  Throttle 

Command 

1 

1 

|  Ini  t ial_Thro  1 1 le_ 
j Bandwidth 

Throttle_ 

Commands 

i 

in  1 3  db  bandwidth  of  the  throttle | 

| command  | 

Subprograms:  The  following  table  describes  the  generic  formal  subroutines 
required  by  this  part: 


|  Name  |  Type  |  Description 


|  function  |  Multiplies  a  Mach  Number  by  a  Mach_Number_Gain | 
j  j  |  yielding  a  ThrottIe_Command  j 


3. 6. 7. 2. 9. 1.3  LOCAL  ENTITIES 


Packages : 

The  packages  Integral  Plus_Proportional_Gain,  Tustin_Integrator_With_Limit , 
Tustin_Integrator_VitK_Asymmetric_Limit,  and  Absolute_Limiter  are  instantiated 
inside  the  packagi  body. 
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3. 6. 7. 2. 9. 1.4  INTERRUPTS 
None. 

3. 6. 7. 2. 9. 1.5  TIMING  AND  SEQUENCING 
None. 

3. 6. 7. 2. 9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.7.2.9.1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

Description  | 

|  Compu  t e_Thro  1 1 le_Command 

function 

Computes  a  new  Throttle  Command 

|Update_Mach_Error_Limit 

procedure 

Updates  the  Mach  Error  Limit 

j  Update_Mach_Error_ 
jlntegralLimit 

procedure 

Updates  the  Mach  Error  Integral 

Limit 

|  Upda  t  e_Thro  1 1  le_Ra  t  e_Li  mi  t 

procedure 

Updates  the  Throttle  Rate  Limit 

|  Update_Throt  tle_Command_ 
j Limits 

i 

procedure 

Updates  the  Upper  and  Lower 

Throttle  Command  limits 

|Update_Mach_Error_Gain 

procedure 

Updates  the  Mach  Error  Gain 

1 

|  Upda  t  e_Thro  1 1 le_Bandwi d  t  h 

procedure 

Updates  the  3  db  bandwidth  which 
the  throttle  rate  can  lie  inside 

3. 6. 7. 2. 9. 1.8  PART  DESIGN 


None. 
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package  Fuel_Control_Parts  is 
generic 

type  Mach_Numbers  is  digits  <>; 
type  Mach_Number_Gains  is  digits  <>; 
type  Throttle_Commands  is  digits  <>; 


Initial_Mach_Command 
Initial_Mach_Error_Limit 
Initial~Mach_Feedback 
Initial_Mach_Error_Gain 
Initial_Mach_Error_Integral_Limi  t 
Ini  t i al_Thro  1 1 le_Command 
Ini tial_Throt tle_Command_Rate  Limi  t 
Initial_Lower_Throttle_Comman3_Limi  t 
Initial_Upper  Throt  tle_Command_Limit 
Initial  Throttle  Bandwidth 


Mach  Numbers; 
Mach~Numbers; 
Mach~Numbers ; 

Mach  Number  Gains; 
Throt tle_Coimands ; 
Throt  tle_Commands ; 
Thro 1 1 le~Commands ; 
Thro t  tle_Commands ; 
Thro  1 1 le_Commands ; 
Throttle  Commands; 


with  function  (Left  :  Mach_Numbers ; 

Right  :  Mach~Number_Gains) 
return  Throttle  Commands  is  <>; 


pragaa  PAGE; 


package  Throt tle_Command_Manager  is 

function  Compute_Throttle_Command 

(Mach_Command  :  in  Mach_Numbers ; 
Mach_Feedback  :  in  Mach_Numbers) 
return  Throttle  Commands; 


procedure  Update_Mach_Error_Limit 

(New_Limit  :  in  Mach_Numbers ) ; 

procedure  Update_Mach_Error  Integral_Limit 

iNew  Limit  :  in  Throttle_Commands) ; 

procedure  Upda  t  e_Th  r o  1 1  le_Ra  t  e_L  i  m  i  t 

(Nev_Limit  :  in  Throt tle_Commands); 

procedure  Upda t e_Th rottle_Command_Limits 

(Nev  Lower  Limit  :  in  Throttle  Commands; 

Nev~Upper~Limit  :  in  Throt tle_Commands) ; 

procedure  Update_Mach_Error  Gain 

lNev_Gain  :  in  Mach_Number_Gains); 

procedure  Update_Throt  t le_Bandvid  th 

(Nev  Bandwidth  :  in  Throttle_Commands) ; 

end  Throttle_Command_Manager; 


end  Fuel  Control  Parts; 
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3.6.8. 1  COORDINATE_VECTOR_MATRIX_ALGEBRA  TLCSC  (CATALOG  #P45-0) 

This  part  consists  of  generic  packages  and  functions  which  define  and/or 
operate  on  coordinate  vectors  and  matrices.  A  coordinate  vector  is  a 
three-element  array.  A  coordinate  matrix  is  a  3  x  3  array.  These  arrays  are 
dimensioned  with  scalar  types  defined  by  the  user. 

VARNING:  The  units  in  this  part  ASSUME  the  axes  types  used  to  dimension  the 
arrays  have  a  length  of  3.  If  they  do  not,  the  units  will  not  function 
properly.  No  length  checks  are  performed  by  the  units. 


3. 6. 8. 1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

Type 

Requirements  Allocation  | 

Vector  Operations 

generic  package 

R024,  R050,  R051,  R052 

Ma  t  r i x_0pera  t i ons 

generic  package 

R070,  R071,  R060,  R067,  R072 
R078 

Vector  Scalar  Operations 

generic  package 

R054,  R055 

Matrix  Scalar  Operations 

generic  package 

R056,  R057 

Cross  Product 

generic  function 

R053 

Matrix  Vector  Multiply 

generic  function 

R049 

Matrix  Matrix  Multiply 

generic  function 

R068 

3. 6. 8. 1.2  INPUT/OUTPUT 
None. 

3. 6. 8. 1.3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 8. 1.4  LOCAL  ENTITIES 
None. 

3. 6. 8. 1.5  INTERRUPTS 


None. 

3. 6. 8. 1.6  TIMING  AND  SEQUENCING 


None. 
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3.6.8. 1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3.6.8. 1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

i  Description  | 

Vector  Operations 

generic 

Defines  a  vector  type  and  provides  general 

package 

operations  on  that  type 

Matrix  Operations 

generic 

Defines  a  matrix  type  and  provides  general 

package 

operations  on  that  type 

Vector  Scalar 

generic 

Provides  operations  to  multiply  and  divide 

Operations 

package 

each  element  of  a  vector  by  a  scalar 

Matrix  Scalar 

generic 

Provides  operations  to  multiply  and  divide 

Operations 

package 

each  element  of  a  matrix  by  a  scalar 

Cross  Product 

generic 

Performs  cross-product  operations  on  two 

function 

3-dimensional  vectors 

Matrix  Vector 

generic 

Multiplies  a  3  x  3  matrix  by  a  3  x  1 

Multiply 

function 

vector,  returning  a  3  x  1  vector 
c(i)  :-  a(i, j)  *  b(j) 

Matrix  Matrix 

generic 

Multiples  two  3x3  matrices, 

Multiply 

function 

returning  the  resultant  matrix 
c(i,j)  :«  a(i,k)  *  b(k,j) 

3.6.8. 1.9  PART  DESIGN 

3.6.8. 1.9.1  VECTOROPERATIONS  (CATALOG  #P46-0) 

Taking  the  generic  formal  parameters  Elements  and  Axes,  this  package  defines  a 
vector  as  a  one-dimensional  array  of  these  elements.  It  then  defines 
operations  on  the  vector.  The  operations  provided  are  described  in  the 
decomposition  section. 


3. 6. 8. 1.9. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 
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|  Name 

1 

Requirements  Allocation 

I 

tt^lt 

1 

R050 

i 

II  _M 

1 

R051 

Vector  Length 

1 

R052 

Dot  Product 

1 

R208 

i 

Sparse  Right  Z  Add 

1 

R205 

Sparse  Right  X  Add 

R206 

Sparse_Right  XY_Subtract 
SettoZeroVecTor 

1 

1 

R207 

i 

i 

3. 6. 8. 1.9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description 

|  Axes 

scalar  type 

Used  to  dimension  the  exported  vector  type 

j  Elements 

floating 

Data  type  of  elements  in  exported  vector 

1 

point  type 

type 

|  Elements  Squared 

floating 

Data  type  resulting  from  multiplying  two 

point  type 

objects  of  type  Elements 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  •»*« 

1 

function 

Multiplication  operator  defining  the  operation: 

Elements  *  Elements  :  =  Elements  Squared 

1  Sqrt 

function 

Square  root  operator 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

|  Range 

|  Operators 

|  Description  | 

|  Vectors 

1 

|  N/A 

1 

|  See  decomposition 
j  section 

|  One-dimensional  array  of  Elements  j 

1  1 
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3. 6. 8. 1.9. 1.3  LOCAL  ENTITIES 


None. 


3. 6. 8. 1.9. 1.4  INTERRUPTS 


None. 


3. 6. 8. 1.9. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  Coordinate_Vector  MatrixAlgebra; 

type  MyAxes  is  (x,  y,  z); 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  My  Elements; 

•  •  • 

function  (Left  :  My_Elements; 

Right  :  My_Elements)  return  My_Elements_Squared; 

•  •  • 

function  SqRt  (Left  j  MyElementsSquared)  return  MyElements; 
•  •  ♦ 

package  VOpns  is  new 

CVMA. Vector_Operat ions 

(Axes  ■>  My_Axes, 

Elements  »>  My_Elements, 

Element s_Squared  ->  My_Elements_Squared) ; 

use  VOpns; 

•  •  • 

Vectorl  :  VOpns. Vectors; 

Vector2  :  VOpns. Vectors; 

•  •  • 
begin 
•  •  • 

Vectorl  :■  Vectorl  +  Vector2; 


3. 6. 8. 1.9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 1.9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 


Type  |  Description 


M_l! 

Dot_Product 

Vector_Length 

Spar  se_Righ  t_Z_Add 

Sparse_Right_X_Add 

Spar  se_Ri  gh  t_XY_Sub  t  rac  t 

Set  to  Zero  Vector 


function 

function 

function 

function 

function 

function 

function 


Adds  two  vectors  of  the  same  type 
returning  a  resultant  vector 
c(i)  :«  a(i)  +  b  (i) 

Subtracts  two  vectors  of  the  same 
type  returning  a  resultant  vector 
c(i)  :=  a(i)  -  b  (i) 

Calculates  the  dot  product  of  two 
vectors  returning  the  result 
c  a(i)  *  b(i) 

Computes  the  length  of  a  vector 
returning  the  result 
c  :  =  Sqrt(sum  of  a(i)**2) 

Adds  two  vectors,  assuming  the  third 
element  of  the  second  vector  equals 
0 

Adds  two  vectors,  assuming  the  first 
element  of  the  second  vector  equals 
0 

Subtracts  two  vectors,  assuming  the 
first  and  second  elements  of  second 
vector  equals  0 

Sets  all  elements  of  a  vector  equal 
to  0 


The  following  table  summarizes  the  allocation  of  catalog  numbers  to  this  part: 


|  Name  | 

Catalog  # 

1 

tt  +  fl  1 

P703-0 

1 

n.N 

P704-0 

1 

Vector  Length  j 

P705-0 

1 

Dot  Product  , 

P706-0  , 

1 

Sparse  Right  Z  Add 

P707-0 

1 

Sparse  Right  X  Add  | 

P708-0 

1 

Sparse  Right  XY  Subtract  I 

P709-0 

1 

Set_to_Zero_Vector  j 

P710-0 

1 

3.6.8. 1.9. 1.8  PART  DESIGN 
None. 


3. 6. 8. 1.9. 2  MATRIX_OPERATIONS  (CATALOG  #P47-0) 

Taking  the  generic  formal  parameters  Elements  and  Axes,  this  package  defines  a 
matrix  as  a  two-dimensional  array  of  these  elements.  It  then  defines 
operations  on  the  matrix.  The  operations  provided  are  shown  in  the 
decomposition  section. 
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3. 6. 8. 1.9. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

Requirement  Allocation 

|  (matrices  +  matrices) 

R070 

j  (matrices  -  matrices) 

R071 

|  "+"  (matrices  +  elements) 

R060 

j  (matrices  -  elements) 

R067 

j  Set  To  Identity  Matrix 

R072 

j  Set  To  Zero  Matrix 

R078 

3. 6. 8. 1.9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type  | 

Description  | 

Axes 

Elements 

scalar  type  | 
floating  | 

point  type  j 

Used  to  dimension  exported  matrix  type 

Data  type  of  elements  in  exported  matrix  type 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

|  Range 

|  Operators 

[  Description  | 

|  Matrices 

1 

|  N/A 

1 

|  See  decomposition 
j  section 

|  Two-dimensional  array  of  Elements  | 

I  1 

3. 6. 8. 1.9. 2. 3  LOCAL  ENTITIES 


None. 


3.6.8. 1.9. 2. 4  INTERRUPTS 


None. 
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3.6.8. 1.9. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  Coordinate_Vector_Matrix_Algebra; 

type  MyAxes  is  (x,  y,  z); 

type  My_Elements  is  new  FLOAT; 

•  •  • 

package  MOpns  is  new 

CVMA. Mat rix_Operat ions 
(Axes  =>  My_Axes, 

Elements  =>  My_Elements); 

use  MOpns ; 

•  •  • 

Matrixl  :  MOpns. Matrixs; 

Matrix2  :  MOpns. Matrixs; 

begin 
•  •  • 

Matrixl  Matrixl  +  Matrix2; 


3. 6. 8. 1.9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 1.9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type 


Description 


"+"  (matrices  +  matrices) 
(matrices  -  matrices) 
"+"  (matrices  +  elements) 

(matrices  -  elements) 

Se t _To_Iden t i t y_Ma t r i x 
Set  To  Zero  Matrix 


function 

function 

function 

function 

function 

function 


Adds  two  3x3  matrices 
c(i,j)  a(i , j )  ♦  b(i,j) 
Subtracts  two  3x3  matrices 
c(i,j)  :=  a(i,j)  -  b(i,j) 

Adds  a  scalar  value  to  each 
element  of  a  3x3  matrix 
c(i,j)  :=  a(i, j)  4  b 
Subtracts  a  scalar  value  from 
each  element  of  a  3x3  matrix 
c(i,j)  a(i,j)  -  b 
Initializes  a  3x3  matrix  to  an 
identity  matrix 

Sets  each  element  of  a  3x3  matrix 
to  zero 


The  following  table  summarizes  the  allocation  of  catalog  numbers  to  this  part: 
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|  Name  | 

Catalog  # 

"+"  (matrices  +  matrices)! 

P711-0 

(matrices  -  matrices)) 

P712-0 

1 

"+"  (matrices  +  elements)! 

P713-0 

1 

(matrices  -  elements)! 

P714-0 

1 

Set  to  Identity  Matrix 

P715-0 

1 

Set  to_Zero  Matrix  | 

P716-0 

1 

3.6.8. 1.9. 2.8  PART  DESIGN 
None. 


3. 6. 8. 1.9. 3  VECTORSCALAROPERATIONS  (CATALOG  #P49-0) 

This  package  provides  the  functions  to  allow  the  user  to  multiply  or  divide 
each  element  of  a  vector  by  a  scalar.  In  addition,  a  multiplication  function 
is  provided  for  a  sparse  vector. 


3.6.8. 1.9.3. 1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

|  Requirement  Allocation  | 

|  R054  | 

|  Sparse  X  Vector  Scalar  Multiply 

|  R209  | 

j  "/" 

|  R055  | 

3. 6. 8. 1.9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description 

I 

Axes 

scalar  type 

Used  to  dimension  imported  vector  types 

! 

Elementsl 

floating 

Type  of  elements  on  Vectorsl 

1 

point  type 

1 

Elements2 

floating 

Type  of  elements  on  Vectors2 

1 

point  type 

1 

Scalars 

floating 

Data  type  of  scale  factors 

1 

point  type 

1 
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Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description 

1 

|  «*» 

|  function 

Multiplication  operator 

used  to  define  the  operation:  | 

1 

1 

Elementsl  *  Scalars  :  = 

Elements2  ; 

j  "/" 

j  function 

Division  operator  used 

to  define  the  operation:  j 

1 

1 

Elements2  /  Scalars  :  = 

Elementsl  j 

3.6.8. 1.9. 3. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 1.9. 3. 4  INTERRUPTS 


None. 


3. 6. 8. 1.9. 3. 5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  CoordinateVectorMatrix  Algebra; 


type  MyAxes  is  (x,  y,  z); 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl ; 
type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Scalars  is  new  FLOAT; 


function  (Left 

Right 

function  (Left 

Right 


:  My_Elementsl; 

:  My_Elementsl)  return 
:  My~Elements2; 

:  My~Elements2)  return 


My_Elementsl_Squared ; 
My_Elements2_Squared ; 


function  (Left 
Right 

function  "/"  (Left 
Right 


:  My_Elementsl; 

:  Scalars)  return  My_Elements2; 
:  My_Elements2; 

:  Scalars)  return  My_Elementsl ; 


function  SqRt  (Left  :  My_Elementsl_Squared)  return  My_Elementsl; 
function  SqRt  (Left  :  My_Elements2_Squared)  return  My~Elements2; 


package  VOpnsl  is  new 

CVMA.  Vector_Operations 

(Axes  ■>  My_Axes, 

Elements  *>  My~Elementsl , 
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Elements_Squared  «>  My_Elementsl_Squared) ; 

use  VOpnsl; 

package  V0pns2  is  new 

CVMA.Vector_Operations 
(Axes  ~  => 

Elements  -> 

Elements_Squared  *=> 

use  V0pns2; 

•  •  • 

package  VSOpns  is  new 

CVMA.Vector_Scalar_Operations 
(Axes  *>  My_Axes, 

Elementsl  =>  My~Elementsl, 

Element s2  ■>  My~Elements2, 

Scalars  ■>  My_Scalars , 

Vectorsl  *>  VOpnsl. Vectors, 

Vectors2  *>  V0pns2. Vectors); 

use  VSOpns; 

•  •  • 

Temp  s  My_Scalars; 

Vectorl  :  VOpnsl. Vectors; 

Vector2  :  V0pns2. Vectors; 

•  •  • 

begin 

•  i  • 

Vector2  :«  Vectorl  *  Temp; 


My_Axes , 

My~Elements2, 
My~Elements2_Squared) ; 


3.6.8. 1.9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 1.9. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type  |  Description  | 

function  |  Multiplies  each  element  of  a  3x1  vector  by 

|  a  scalar  value 

1  c(i)  :=  a(i)  *  b 

Sparse  X  Vector 

function  j  Multiplies  each  element  of  a  3x1  vector  by 

Scalar  Multiply 

j  a  scalar  value  assuming  the  first  element 

|  of  the  vector  equals  0 

♦f  i  tt 

function  j  Divides  each  element  of  a  3x1  vector  by  a 

j  scalar  value 

j  c(i)  :=  a(i)  /  b 

The  following  table  summarizes  the  allocation  of  catalog  numbers  to  this  part: 
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|  Name 

|  Catalog  # 

|  "*» 

|  P717-0 

1 

j  Sparse_X_Vector_ 
j  Scalar  Multiply 

i  P718-0 

1 

1 

1 

|  "/" 

|  P719-0 

1 

3.6.8. 1.9. 3.8  PART  DESIGN 


None. 


3. 6. 8. 1.9. 4  MATRIX_SCALAR_OPERATIONS  (CATALOG  #P49-0) 

This  package  provides  the  functions  to  allow  the  user  to  multiply  or  divide 
each  element  of  a  matrix  by  a  scalar. 


3. 6. 8. 1.9. 4.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

|  Requirement  Allocation  | 

|  »*" 

|  R056  | 

|  "/" 

|  R057  | 

3.6.8. 1.9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description 

1 

|  Axes 

scalar  type 

Used  to  dimension  incoming  matrix  types 

1 

j  Elementsl 

floating 

Type  of  elements  in  Matricesl 

1 

point  type 

1 

j  Elements2 

floating 

Type  of  elements  in  Matrices2 

1 

point  type 

1 

j  Matricesl 

array 

Two-dimensional  array  of  Elementsl 

j  Matrices2 

array 

Two-dimensional  array  of  Elements2 

1 

Subprograms : 
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Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

Type 

Description  | 

"*•* 

function 

Multiplication  operator  used  to  define  the  operation:  | 
Elementsl  *  Scalars  :=  Elements2 

tl/ll 

function 

Division  operator  used  to  define  the  operation:  j 

Elements2  /  Scalars  :  =  Elementsl  1 

3. 6. 8. 1.9. 4.3  LOCAL  ENTITIES 


None. 


3. 6. 8. 1.9. 4. 4  INTERRUPTS 


None. 


3. 6. 8. 1.9. 4. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  Coordinate_Vector_Matrix_Algebra; 

type  MyAxes  is  (x,  y,  z); 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  MyJScalars  is  new  FLOAT; 

•  •  • 

function  (Left  :  MyJSlementsl; 

Right  :  Scalars)  return  My_Elements2; 
function  "/"  (Left  :  My_Elements2; 

Right  :  Scalars)  return  My_Elementsl; 

•  •  • 

package  MOpnsl  is  new 

CVMA. MatrixOperat ions 

(Axes  ■=>  My_Axes , 

Elements  =>  My~Elementsl) ; 

use  MOpnsl; 

•  •  • 

package  M0pns2  is  new 

CVMA.Matrix_Operations 

(Axes  =>  My_Axes, 

Elements  =>  My_Elements2) ; 

use  M0pns2; 

•  •  • 

package  MSOpns  is  new 

CVMA.Matrix_Scalar_Operations 
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(Axes  «>  My_Axes, 

Elementsl  «>  My_Elementsl, 
Elements2  «>  My~Elements2 , 
Matricesl  *>  MOpnsl. Matrices, 
Matrices2  *>  M0pns2. Matrices) ; 

•  •  i 

Temp  :  My_Scalars; 

Matrixl  s  MOpnsl. Matrices; 

Matrix2  :  M0pns2. Matrices; 

begin 
•  •  • 

Matrix2  :=  Matrixl  *  Temp; 


3. 6. 8. 1.9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 1.9. 4. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 


Type 


Description 


function  |  Multiplies  each  element  of  a  3x3  matrix  by  a  scalar 
value 

c(i,j)  :«  a(i,j)  *  b 

function  j  Divides  each  element  of  a  3x3  matrix  by  a  scalar  value 
c(i,j)  a(i, j )  /  b 


The  following  table  summarizes  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

_ . j 

| 

|  P720-0 

|  "/" 

|  P721-0  | 

3. 6. 8. 1.9. 4. 8  PART  DESIGN 
None. 


3. 6. 8. 1.9. 5  CROSS_PRODUCT  (CATALOG  #P50-0) 

This  generic  function  performs  a  cross  product  operation  on  two  vectors, 
returning  the  resultant  vector.  The  three  vectors  are  each  three-dimensional, 
coordinate  vectors.  None  of  the  three  need  to  contain  the  same  type  of 
elements. 
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3.6.8. 1.9.5. 1  REQUIREMENTS  ALLOCATION 


This  part  meets  CAMP  requirement  R053. 


3.6.8. 1.9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


Name 

Type 

Description 

Axes 

scalar  type 

Used  to  dimension  imported  vector  types 

Lef t_Elements 

floating 
point  type 

Data  type  of  elements  in  left  input  vector 

Right  Elements 

floating 
point  type 

Data  type  of  elements  in  right  input  vector 

Result_Elements 

floating 
point  type 

Data  type  of  elements  in  result  vector 

Left  Vectors 

array 

Data  type  of  left  input  vector 

Right  Vectors 

array 

Data  type  of  right  input  vector 

Result_Vectors 

array 

Data  type  of  result  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description 

1 

1  , 

1 

|  function 

1  1 

Multiplication  operator  used  to 
Lef t_Elements  *  Right_Elements 

define  the  operation:  | 
:*  Result_Elements  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  j 

|  Left 

Left  Vectors 

|  N/A 

|  Matrix  to  be  used  on  the  left  side  of  j 

i 

1 

i  the  cross-product  operation 

I  Right  | 

Right  Vectors 

j  N/A 

j  Matrix  to  be  used  on  the  right  side  of  j 

1 

1 

i  the  cross-product  operation  j 
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3.6.8. 1.9. 5. 3  INTERRUPTS 


None. 


3. 6. 8. 1.9. 5. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  Coordinate_Vector_Matrix_Algebra; 

type  My_Axes  is  (x,  y,  z); 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl ; 
type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 


function  "*"  (Left 
Right 

function  "*"  (Left 
Right 

function  "*"  (Left 
Right 

•  •  • 

function  (Left 
Right 

•  «  • 

function  SqRt  (Left 
function  SqRt  (Left 
function  SqRt  (Left 


MyElementsl; 

My_Elementsl)  return  My_Elementsl_Squared; 
My_Elements2; 

My_Elements2)  return  My_Elements2_Squared; 
My_Elements3; 

My_Elements3)  return  My_Elements3_Squared; 
My_Elementsl; 

My_Elements2)  return  My_Elements3; 

My_Elementsl_Squared)  return  My_Elementsl; 
My_Elements2_Squared)  return  My_Elements2; 
My  Elements3  Squared)  return  My  Elements3; 


package  VOpnsl  is  new 

CVMA. Vector_Operat ions 

(Axes  =>  My_Axes, 

Elements  *>  MyJSlementsl, 

Element sSquared  ->  My2Elementsl_Squared) ; 

use  VOpnsl; 

•  •  • 

package  V0pns2  is  new 

CVMA. Vector_Operat ions 

(Axes  =>  My  Axes, 

Elements  =>  My~Elements2, 

Elements_Squared  *>  My~Elements2_Squared) ; 

use  V0pns2; 

•  •  • 

package  V0pns3  is  new 

CVMA. Vector_Operat ions 

(Axes  =>  My_Axes, 

Elements  =>  My~Elements3, 

Elements_Squared  =>  My_Elements3_Squared) ; 

use  V0pns3; 


function  Cross  Product  is  new 
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CVMA . Cross_Produc  t 
(Axes 

Lef t_Elements 
Right_Elements 
Result_Elements 
Lef t_Vectors 
Right_Vectors 
Result  Vectors 


*>  My_Axes, 

=>  My_Elementsl, 

«>  My~Elements2, 

=>  My_Elements3, 

=>  VOpnsl. Vectors, 
->  V0pns2. Vectors, 
*>  V0pns3. Vectors) ; 


Vectorl  :  VOpnsl. Vectors; 
Vector2  :  V0pns2. Vectors; 
Vector3  :  V0pns3. Vectors; 


begin 

Vector3  Cross  Product(Vectorl ,  Vector2); 


3.6.8. 1.9. 5. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 1.9. 5. 6  DECOMPOSITION 


None. 


3.6.8. 1.9.6  MATRIX_VECTOR_MULTI PLY  (CATALOG  #P51-0) 

This  generic  function  allows  the  user  to  multiply  a  3  x  3  matrix  by  a  3  x  1 
vector,  returning  the  resultant  3x1  vector.  Both  the  matrix  and  the  vector 
contain  elements  in  the  x,  y,  and  z  axes  of  the  Cartesian  coordinate  system. 


3. 6. 8. 1.9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R049. 


3. 6. 8. 1.9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

1 

Type 

1 

Description 

I 

Axes 

1 

scalar  type 

1 

Used  to  dimension  incoming  array 

1 

Input  Vector  Elements 

1 

1 

floating 

1 

1 

types 

Data  type  of  elements  in  input 

1 

Output  Vector  Elements 

1 

point  type 
floating 

1 

vector 

Data  type  of  elements  in  output 

I 

1 

Matrix  Elements 

1 

1 

point  type 
floating 

1 

1 

vector 

Data  type  of  elements  in  input 

1 

1 

point  type 

1 

matrix 

1 

Input  Vectors 

1 

array 

1 

Data  type  of  input  vector 

1 

Output  Vectors 

1 

array 

1 

Data  type  of  output  vector 

1 

Matrices 

1 

array 

1 

Data  type  of  input  matrix 

1 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  »*" 

|  function 

Multiplication  operator  defining  the  operation: 

1 

1 

Matrix  Elements  *  Input  Vector  Elements  :- 

1 

1 

Ou t pu t_Vec t o r_Elemen t s 

FORMAL  PARAMETERS: 

The  following  chart  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description 

1 

|  Matrix  | 

|  Matrices  | 

In 

|  Matrix  to  be  used 

in 

calculations  | 

|  Vector  j 

|  Input_Vectors | 

In 

|  Vector  to  be  used 

in 

calculations  | 

3. 6. 8. 1.9. 6. 3  INTERRUPTS 


None. 


3. 6. 8. 1.9. 6. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Coord inate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  Coordinate_Vector_Matrix_Algebra; 

type  My_Axes  is  (x,  y,  z); 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl; 
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type  My_Elements2  is  new  FLOAT; 

type  My~Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 

•  •  • 

function  (Left  :  My_Elements2; 

Right  :  My~Elements2)  return  My_Elements2_Squared; 
function  (Left  :  My~Elements3; 

Right  s  My~Elements3)  return  My_Elements3_Squared; 

function  (Left  s  My_Elementsl ; 

Right  :  My_Elements2)  return  My_Elements3; 

•  •  • 

function  SqRt  (Left  :  My_Elements2_Squared)  return  My_Elements2; 
function  SqRt  (Left  :  My_Elements3_Squared)  return  My_Elements3; 
•  •  • 

package  MOpnsl  is  new 

CVMA . MatrixOperat ions 

(Axes  *>  My_Axes, 

Elements  =>  My~Elementsl) ; 

use  MOpnsl; 

•  •  • 

package  VOpns2  is  new 

CVMA.  Vector_Operat  ions 

(Axes  ->  My_Axes , 

Elements  «>  My~Elements2, 

Elements  Squared  ->  My_Elements2_Squared) ; 

use  V0pns2; 

•  •  • 

package  V0pns3  is  new 

CVMA.  Vector_Operat  ions 

(Axes  ■>  My_Axes , 

Elements  «>  My_Elements3, 

Elements_Squared  »>  My~Elements3_Squared) ; 

use  V0pns3; 

function  is  new 

CVMA.Matrix_Vector_Multiply 

(Axes  *=>  My_Axes, 

Input_Vector_Elements  =>  My_Elements2, 
Output_Vector_Elements  =>  My_Elements3, 
Matrix_Elements  =>  My~Elementsl, 

Matrices  =>  MOpnsl. Matrices, 

Input_Vectors  =>  V0pns2. Vectors, 

Output_Vectors  =>  V0pns3. Vectors ) ; 

•  •  • 

Matrixl  :  MOpnsl. Matrices; 

Vector2  :  V0pns2. Vectors; 

Vector3  :  V0pns3. Vectors; 

•  •  • 

begin 
•  •  • 

Vector3  :=  Matrixl  *  Vector2; 
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3.6.8. 1.9. 6. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 1.9. 6. 6  DECOMPOSITION 
None. 


3.6.8. 1.9.7  MATRIX_MATRIX_MULTIPLY  (CATALOG  #P52-0) 

This  generic  function  allows  the  user  to  multiply  two  3x3  matrix,  returning 
the  resultant  3x3  matrix.  Both  matrices  contain  elements  in  the  x,  y,  and  z 
axes  of  the  Cartesian  coordinate  system. 


3. 6. 8. 1.9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R068. 


3. 6. 8. 1.9. 7. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1 

Type 

!  Description  | 

Axes 

1 

scalar  type 

Used 

to  dimension  imported  array  types 

Left  Elements 

1 

floating 

Data 

type  of  elements  in  left  input  matrix 

1 

point  type 

Right  Elements 

1 

floating 

Data 

type  of  elements  in  right  input  matrix 

1 

point  type 

Result  Elements 

1 

floating 

Data 

type  of  elements  in  output  matrix 

point  type 

Left  Matrices 

1 

array 

Data 

type  of  left  input  matrix 

Right  Matrices 

I 

array 

Data 

type  of  right  input  matrix 

Result_Matrices 

1 

array 

Data 

type  of  output  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

| 

1 

j  function 

1 

Multiplication  operator  defining  the  operation:  | 

Left  Elements  *  Right  Elements  :*  ResultElements  j 
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FORMAL  PARAMETERS: 

The  following  chart  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description 

1 

Matrixl 

Left  Matrices 

In 

|  First  matrix  used 

for  multiplication  j 

|  operation 

1 

Matrix2 

Right  Matrices 

In 

j  Second  matrix  used 

for  multiplication  | 

|  operation 

1 

3. 6. 8. 1.9. 7. 3  INTERRUPTS 

None. 


3.6.8. 1.9. 7.4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  CVMA  renames  CoordinateVectorMatrixAlgebra; 


type  MyAxes  is  (x,  y,  z); 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements3  is  new  FLOAT; 

•  •  • 

function  (Left  :  My_Elementsl; 

Right  :  My_Elements2)  return  My_Elements3; 

•  *  • 

package  MOpnsl  is  new 

CVMA .  Ma  t  r  i  x_0pe  rations 

(Axes  »>  My_Axes, 

Elements  ■>  My~Elementsl) ; 

use  MOpnsl; 


package  M0pns2  is  new 

CVMA.  Mat  rix_Operat  ions 

(Axes  «>  My_Axes, 

Elements  ■>  My_Elements2) ; 

use  M0pns2 ; 


package  M0pns3  is  new 

CVMA. Mat rix_Operat ions 

(Axes  -  ■>  My_Axes, 

Elements  =>  My_Elements3) ; 

use  M0pns31; 


function  is  new 

CVMA.  Mat  rix_Matrix_Multiply 
(Axes  ~  «>  My_Axes, 

Lef t_Elements  =>  My_Elementsl, 
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Matrixl 

Matrix2 

Matrix3 


Right_Elements 
Result_Elements 
Left_Ma trices 
Right_Matrices 
Output_Matrices 

MOpnsl. Matrices; 
M0pns2. Matrices; 
M0pns3. Matrices; 


*>  My_Elementsl, 

*>  My_Elements3, 

*>  MOpnsl .Matrices, 
*>  M0pns2. Matrices, 
*>  M0pns3. Matrices) ; 


begin 


•  •  • 

Matrix3  Matrixl  *  Matrix2; 


3. 6. 8. 1.9. 7. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 1.9. 7. 6  DECOMPOSITION 


None. 
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package  Coordinate_Vector_Matrix_Algebra  is 

pragna  PAGE; 
generic 

type  Axes  is  (<>); 

type  Elements  is  digits  <>; 

type  Elements_Squared  is  digits  <>; 
vith  function”"*"  (Left  :  Elements; 

Right  :  Elements)  return  Elements_Squared  is  <>; 
with  function  Sqrt  (Input  :  Elements_Squared)  return  Elements  is  <>; 
package  Vector_Operations  is 

type  Vectors  is  array(Axes)  of  Elements; 

function  "+"  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  "-"  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  Vector_Length  (Vector  s  Vectors)  return  Elements; 

function  Dot_Product  (Vectorl  :  Vectors; 

Vector2  :  Vectors)  return  Elements_Squared; 

function  Sparse_Right_Z_Add  (Left  s  Vectors; 

Right  s  Vectors)  return  Vectors; 

function  Sparse_Right_X_Add  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  Sparse_Right_Xy_Sub tract  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  Set_To_Zero_Vector  return  Vectors; 

end  Vector_Operations; 

pragna  PAGE; 
generic 

type  Axes  is  (<>); 
type  Elements  is  digits  <>; 
package  Matrix_Operations  is 

type  Matrices  is  array  (Axes,  Axes)  of  Elements; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  "-"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  "+"  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices; 

function  (Matrix  :  Matrices; 

Subtrahend  :  Elements)  return  Matrices; 
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function  Set_To_Identity_Matrix  return  Matrices; 

function  Set_To_Zero_Matrix  return  Matrices; 

end  Matrix_Operations; 

pragma  PAGE; 
generic 

type  Axes  is  (<>); 

type  Elements 1  is  digits  <>; 

type  Elements2  is  digits  <>; 

type  Scalars  is  digits  <>; 

type  Vectorsl  is  array(Axes)  of  Elementsl; 

type  Vectors2  is  array(Axes)  of  Elements2; 

with  function  (Left  s  Elementsl; 

Right  :  Scalars)  return  Elements2  is  <>; 
vith  function  ”/"  (Left  :  Elements2; 

Right  :  Scalars)  return  Elementsl  is  <>; 
package  Vector_Scalar_Operations  is 

function  (Vector  :  Vectorsl; 

Multiplier  :  Scalars)  return  Vectors2; 

function  Sparse_X_Vector_Scalar_Multiply 
(Vector  s  Vectorsl; 

Multiplier  :  Scalars)  return  Vectors2; 

function  "/"  (Vector  :  Vectors2; 

'Divisor  :  Scalars)  return  Vectorsl; 


end  Vector  Scalar  Operations; 


pragma  PAGE; 
generic 

type  Axes  is  (<>); 

type  Elementsl  is  digits  <>; 

type  Elements2  is  digits  <>; 

type  Scalars  is  digits  <>; 

type  Matricesl  is  array  (Axes,  Axes)  of  Elementsl; 

type  Matrices2  is  array  (Axes,  Axes)  of  Elements2; 

with  function  (Left  :  Elementsl; 

Right  :  Scalars)  return  Elements2  is  <>; 
with  function  "/"  (Left  :  Elements2; 

Right  :  Scalars)  return  Elementsl  is  <>; 
package  Matrix_Scalar_Operations  is 


function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2; 

function  "/"  (Matrix  :  Matrices2; 

Divisor  :  Scalars)  return  Matricesl; 


end  Matrix  Scalar_Operations; 


pragma  PAGE; 
generic 
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type  Axes  is  (<>); 

type  Left_Elements  is  digits  <>; 

type  Right_Elements  is  digits  <>; 

type  Resull  Elements  is  digits  <>; 

type  Left_Vectors  is  array(Axes)  of  Lef t_Elements; 

type  RighI_Vectors  is  array(Axes)  of  Right_Elements; 

type  Result_Vectors  is  array(Axes)  of  Result  Elements; 

with  function  (Left  :  Lef t_Elements; 

Right  :  Right  Elements)  return  Result_Elements  is  <>; 
function  Cross_Product  (Left  :  LeIt_Vectors; 

Right  :  Right  Vectors)  return  Result_Vectors; 


pragma  PAGE; 
generic 
type  Axes 

type  Input_Vector_Elements 
type  Output_Vector_Elements 
type  Matrix  Elements 
type  Input_Vectors 
type  Output_Vectors 
type  Matrices 
with  function  (Left 
Right 


is  (<>); 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  array  (Axes) 
is  array  (Axes) 
is  array  (Axes, 

Matrix_Elements; 

Input  Vector  Elements) 


of  Input_Vector_Elements; 
of  Output_Vector_Elements; 
Axes)  of  Matrix  Elements; 


return  Output_Vector_flements  is  <>; 
function  Matrix_Vector_Multiply 
(Matrix  :  Matrices; 

Vector  s  InputVectors)  return  OutputVectors; 


pragma  PAGE; 
generic 
type  Axes 

type  Left_Elements 
type  Right_Elements 
type  Result_Elements 
type  Left_Matrices 
type  Right_Matrices 
type  Result_Matrices 
with  function 


is  «>); 
is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  array  (Axes, 
is  array  (Axes, 


Axes) 

Axes) 

Axes) 


is  array  (Axes, 

(Left  :  Lef t_Elements; 
Right  :  Right_Elements) 
function  Matrix_Matrix_Multiply 

(Matrixl  :  Left_Matrices; 

Matrix2  :  Right  Matrices)  return 


of  Lef t_Elements; 
of  Right_Elements; 
of  Result_Elements; 

return  Result  Elements  is  <>; 


Result  Matrices; 


end  Coordinate  Vector  Matrix  Algebra; 
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3. 6. 8. 2  GENERAL_VECTOR_MATRIX_ALGEBRA  (SPEC)  TLCSC  (CATALOG  #P167-0) 

This  part  is  a  package  of  generic  packages  and  generic  functions.  The  LLCSC's 
take  two  different  forms.  One  form  defines  vector  and  matrix  types,  along  with 
general  operations  on  these  types.  The  other  form  requires  that  vector  and 
matrix  types  be  provided  as  generic  parameters  and  performs  operations  on  data 
objects  of  different  types. 

Many  of  the  parts  have  both  an  unconstrained  and  constrained  or  restricted  and 
unrestricted  versions.  The  constrained/restricted  versions  of  these  parts  are 
less  flexible  in  the  dimensioning  of  the  input  arrays,  but  require  fever 
internal  calculations. 

The  generic  functions/package  which  import  generic  formal  array  types  have  been 
designed  to  work  in  conjunction  with  the  data  types  exported  by  the  generic 
packages . 


3. 6. 8. 2.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 
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|  Name 

1 

Requirements  | 

Allocation  j 

|  General  Vector  Matrix  Algebra 

R058  | 

j  Vector  Operations  Unconstrained 

R061,  R062,  R063,  | 

1 

R104  1 

|  Vector  Operations  Constrained 

R061,  R062,  R063,  | 

1 

R104  j 

j  Matrix  Operations  Unconstrained 

R075,  R076,  R079, 

1 

R080,  R155,  R156 

|  Matrix  Operations  Constrained 

R075,  R076,  R079, 

1 

R080,  R155,  R156 

Dynamically  Sparse  Matrix  Operations  Unconstrained 

R226 

Dynamically  Sparse  Matrix  Operations  Constrained 

R226 

Symmetric  Half  Storage  Matrix  Operations 

R211 

Symmetric  Full  Storage  Matrix  Operations  Unconstrained 

R227 

Symmetric  Full  Storage  Matrix  Operations  Constrained 

R227 

Diagonal  Matrix  Operations 

R212 

Vector  Scalar  Operations  Unconstrained 

R065,  R066 

Vector  Scalar  Operations  Constrained 

R065,  R066 

Matrix  Scalar  Operations  Unconstrained 

R073,  R074 

Matrix  Scalar  Operations  Constrained 

R073,  R074 

Diagonal  Matrix  Scalar  Operations 

R212 

Matrix  Vector  Multiply  Unrestricted 

R069 

Matrix  Vector  Multiply  Restricted 

R069 

Vector  Matrix  Multiply  Unrestricted 

Vector  Matrix  Multiply  Restricted 

Vector  Vector  Transpose  Multiply  Unrestricted 

Vector  Vector  Transpose  Multiply  Restricted 

Matrix  Matrix  Multiply  Unrestricted 

R077 

Matrix  Matrix  Multiply  Restricted 

R077 

Matrix  Matrix  Transpose  Multiply  Unrestricted 

Matrix  Matrix  Transpose  Multiply  Restricted 

Dot  Product  Operation  Unrestricted 

R063 

Dot  Product  Operation  Restricted 

R063 

Diagonal  Full  Matrix  Add  Unrestricted 

R212 

Diagonal  Full  Matrix  Add  Restricted 

R212 

ABA  Trans  Dynam  Sparse  Matrix  Sq  Matrix 

ABA  Trans  Vector  Sq  Matrix 

ABA~Trans  Vector~Scalar 

j  Column_Matrix_Operations 

Allocation  of  Parts  to  General  Vector/Matrix  Algebra  TLCSC 


3. 6. 8. 2. 2  INPUT/OUTPUT 
EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 
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|  Name  |  Description 


|  Dimension_Error  |  Raised  by  a  routine  or  package  when  input  received  has 
j  ~  |  dimensions  incompatible  with  the  type  of  operation  to 
j  |  be  performed 


3. 6. 8. 2. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 6. 8. 2. 4  LOCAL  ENTITIES 
None. 

3. 6. 8. 2. 5  INTERRUPTS 
None. 

3. 6. 8. 2. 6  TIMING  AND  SEQUENCING 
None. 

3. 6. 8. 2. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 

3. 6. 8. 2. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name  |  Type  |  Description 


Vector  Operations 

|  generic 

Defines  an  unconstrained  vector 

Unconstrained 

j  package 

1 

type  and  provides  general 
operations  on  that  type 

Vector  Operations 

|  generic 

Defines  a  constrained  vector 

Constrained 

i  package 

i 

type  and  provides  general 
operations  on  that  type 

Matrix  Operations 

|  generic 

Defines  an  unconstrained  matrix 

Unconstrained 

j  package 

1 

type  and  provides  general 
operations  on  that  type 

Matrix  Operations 

|  generic 

Defines  a  constrained  matrix 

Constrained 

j  package 

1 

type  and  provides  general 
operations  on  that  type 

Dynamically  Sparse  Matrix 

|  generic 

Defines  an  unconstrained  matrix 

Opera tions_Uncons trained 

j  package 

1 

type  which  is  dynamically  sparse 
and  provides  general  operations 
on  that  type 

Dynamically  Sparse  Matrix 

j  generic 

Defines  a  constrained  matrix 

Operations_Cons trained 

j  package 

1 

1 

type  which  is  dynamically  sparse 
and  provides  general  operations 
on  that  type 

Symmetric  Half  Storage 

|  generic 

Defines  a  constrained  symmetric, 

Ma  t  r  1  x_Opera  tlons 

|  package 

1 

1 

1 

half  storage  matrix  in  which 
only  the  bottom  half  of  the 
.  matrix  is  stored  and  provides 
general  operations  on  that  type 

Symmetric  Full  Storage 

|  generic 

Defines  an  unconstrained 

Matrix  Operations 

j  package 

symmetric  full  storage  matrix 

Unconstrained 

1 

1 

type  and  provides  general 
operations  on  that  type 

Symmetric  Full  Storage 

|  generic 

Defines  a  constrained  symmetric 

Matrix  Operations 

j  package 

full  storage  matrix  type  and 

Constrained 

1 

1 

provides  general  operations  on 
that  type 

Diagonal_Matrix_Operations 

|  generic 
|  package 

1 

1 

1 

Defines  a  constrained  diagonal 
matrix  type  where  only  the 
diagonal  elements  are  stored 
and  provides  general  operations 
on  that  type  ; 

Vector  Scalar  Operations 

|  generic 

Provides  operations  to  multiply  j 

Unconstrained 

package 

: 

and  divide  an  unconstrained  | 

vector  by  a  scalar 

Vector  Scalar  Operations 

|  generic 

Provides  operations  to  multiply  | 

Constrained 

j  package 

1 

and  divide  a  constrained 
vector  by  a  scalar  ! 

Matrix  Scalar  Operations 

|  generic 

Provides  operations  to  multiply  j 

Unconstrained 

j  package 

1 

and  divide  an  unconstrained  ] 

matrix  by  a  scalar 

Matrix  Scalar  Operations 

j  generic 

Provides  operations  to  multiply 

Constrained 

j  package 

1 

and  divide  a  constrained  matrix  j 
by  a  scalar  j 

Diagonal  Matrix  Scalar 

|  generic 

Provides  operations  to  multiply  | 

Operations 

package 

1 

and  divide  a  diagonal  matrix 
by  a  scalar 

Matrix_Vector_Multiply_ 

|  generic 

Multiplies  an  m  x  n  matrix  by  an  | 
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Unrestricted 


Matrix  Vector_Multiply 
Restricted 


Vector_Matrix_Multiply 

Unrestricted 


Vector  Matrix_Multiply 
Restricted 


Vector_Vector_Transpose 

Multiply_Unristricted 


Vector_Vector_Transpose 
Mul t i ply_Res t r i c  t  ed 


Unrestricted 

Matrix  Matrix_Multiply 
Restricted 


MatrixMatrixTranspose 
Mul t i ply_Unres t r i c t ed 

Matrix_Matrix_Transpose 

Multiply_Restricted 


Dot_Product_Operation_ 

Unrestricted 

Do  t_Produc  tOpera t ion_ 
Restricted- 

Diagonal  Full_Matrix_Add 
Unrestricted 


Diagonal_Full_Matrix_Add 

Restricted 


|  ABA_Trans_Dynam  Sparse_ 
j  Matrix  Sq  Matrix 

I 

|  ABA_Trans_Vector_Sq_Matrix 


j  ABA_Trans_Vector_Scalar 


package 


generic 

function 


generic 

package 


generic 

function 


generic 

package 


generic 

function 


package 

generic 

function 


generic 

package 

generic 

function 


generic 

package 

generic 

function 

generic 

package 


j  generic 
j  function 


j  generic 
'  package 

j  generic 
j  package 

|  generic 


n  x  1  vector,  returning  an  m  x  1 
vector 

c(i,j)  -  a(i)  *  b(j) 

Multiplies  an  m  x  n  matrix  by  an 
n  x  1  vector,  returning  an 
m  x  1  vector 
c(i,j)  -  a(i)  *  b(j) 

Multiplies  a  1  x  m  vector  by  an 
m  x  n  matrix,  returning  a  1  x  n 
vector 

c(j)  =  a(i)  *  b(i,j) 

Multiplies  a  1  x  m  vector  by  an 
m  x  n  matrix,  returning  a 
1  x  n  vector 


c(j)  =  a(i)  *  b(i,j) 

Multiplies  an  m  x  1  vector  by 
the  transpose  of  an  n  x  1 
vector,  returning  an  m  x  n 
matrix 

Multiplies  an  m  x  1  vector  by 
the  transpose  of  an  n  x  1 
vector,  returning  an  m  x  n 
matrix 

n  x  p  matrix,  returning  an  m  x  p 
matrix 

Multiplies  an  m  x  n  matrix  by  an 
n  x  p  amtrix,  returning  an 
m  x  p  matrix 

c(i,j)  -  a(i,k)  *  b(k,j) 
Multiplies  an  m  x  n  matrix  by 
the  transpose  of  a  p  x  n  matrix, 
returning  an  m  x  p  matrix 
Multiplies  an  m  x  n  matrix  by 
the  transpose  of  a  p  x  n  matrix, 
returning  an  m  x  p  matrix 
c(i,j)  -  a(i,k)  *  b(j,k) 

Performs  a  dot  product  operation 
on  two  unconstrained  vectors 
c  -  a(i)  *  b(i) 

Performs  a  dot  product  operation 
on  two  constrained  vectors 
c  »  a(i)  *  b(i) 

Adds  an  m  x  m  diagonal  matrix 
to  an  unconstrained,  m  x  m 
full  storage  matrix 
c(i)  =  a(i)  4  b(i) 

Adds  an  m  x  m  diagonal  matrix 
to  a  constrained,  m  x  m  full 
storage  matrix 
c(i)  =  a(i)  4  b(i) 

Does  an  ABA  transpose  to  dynami¬ 
cally  sparse  matrix  (m  x  n)  and 
a  square  matrix  (n  x  n) 

Does  an  ABA  transpose  to  a  vector 
(1  x  m)  and  a  square  matrix 
(m  x  m) 

Does  an  ABA  transpose  to  a  vector 
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ABA_Trans_Col_Ma  t  r  i  x_Sq_ 
Matrix 

Column  Matrix_Operations 


package 

generic 

package 

generic 

package 


(1  x  m)  and  a  scalar 
Does  an  ABA  transpose  to  a  column 
matrix  (m  x  n)  and  a  square 
matrix  (n  x  n) 

Provides  a  column  matrix  type 
and  basic  operations  to  go  with 
it 


3. 6. 8. 2. 9  PART  DESIGN 

3. 6. 8. 2. 9.1  VECTOROPERATIONSUNCONSTRAINED  (CATALOG  #P168-0) 

Taking  the  generic  formal  parameter  "vector  elements",  this  generic  package 
defines  a  vector  as  an  unconstrained,  one-dimensional  array  of  these  elements. 
It  then  defines  operations  on  the  vector.  See  decomposite  section  for 
operations  provided. 

No  exceptions  are  raised  by  this  package;  however,  exceptions  are  raised  by 
routines  in  this  package: 


|  Name 

Raised  By 

Vhen/Vhy  Raised  | 

Dimension  Error 

W  +  f» 

Raised  if  the  lengths  of  the  two  input 

!!_M 

vectors  are  not  the  same 

Dot_Product 

3. 6. 8. 2. 9. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  requirements  to  this  part: 


1 

Requirements 

1 

Name  | 

Allocation 

1 

| 

R061 

I 

"  -  "  j 

R062 

1 

Dot  Product 

R063 

1 

Vector_Length  j 

R104 

1 

3. 6. 8. 2. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

1  Type 

1 

Description  | 

Vector  Elements 

|  floating 

1 

Type  of  elements  to  be  contained  in  vector 

j  point  type 

1 

type  defined  by  this  package 

Vector  Elements 

j  floating 

Resulting  type  from  the  operation 

Squared 

|  point  type 

1 

1 

Vector_Elements  *  Vector_Elements;  used 
for  result  of  a  dot  product  operation 

Indices 

j  discrete 

1  type 

1 

I 

Used  to  dimension  exported  Vectors  type 

DATA  OBJECTS:  None. 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  «*« 

function 

Used  to  define  the  operation 

Vector  Elements  *  Vector  Elements  :- 

* 

Vector  Elements  Squared 

j  SqRt 

1 

1 

function 

Square  root  function  taking  an  object  of  type 
VectorElementsSquared  and  returning  an  object 
of  type  Vector  Elements 

GLOBAL  PARAMETERS:  None. 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

EXCEPTIONS:  None. 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

Range 

|  Operators 

Description  | 

|  Vectors 

1 

N/A 

|  See  decomposition 
|  section 

Unconstrained  array  of  Elements  | 

1 

3. 6. 8. 2. 9. 1.3  LOCAL  ENTITIES 


None. 
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3. 6. 8. 2. 9. 1.4  INTERRUPTS 


None. 


3. 6. 8. 2. 9. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

wi  th  General_Vector_Matrix_Operations ; 

•  41 

type  My_Indices  is  (a,  b,  c); 

•  •  • 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  My_Elements; 

•  •  • 

function  (Left  :  My_Elements; 

Right  :  My_Elements)  return  My_Elements_Squared; 

•  •  • 

function  SqRt  (Input  :  Vector  Elements_Squared) 
return  Vector_Elements; 

•  •  ■ 

package  V_Opns  is  new 

Gener al_Vec t or_Ma trix  Operations. 
Vector_0perations_0ncons  trained 

(VectorElements  «>  My_Elements, 

Vector_Elements_Squared  ■>  My_Elements_Squared, 
Indices  ~  «>  My_Indices); 

use  VOpns ; 

•  •  • 

subtype  My_Vectors  is  V_Opns.Vectors(My_Indices); 

•  •  • 

Vectorl  :  MyVectors; 

Vector2  :  My_Vectors; 

•  •  • 

begin 

Vectorl  :■  Vectorl  +  Vector2; 


3. 6. 8. 2. 9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 2. 9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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m  .  . . . 

|  Name  I  Type  |  Description  I 


The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


Dot  Product 


function 

function 

function 


Vector  Length  j  function 


Adds  two  vectors  with  m  elements 
c(i)  -  a(i )  ♦  b(i ) 

Subtracts  two  vectors  with  m 
c(i)  -  a(i)  -  b(i) 

Performs  a  dot  product  operation  on 
vectors  with  m  elements 
c  -  a(i)  *  b(i) 

Calculates  the  length  of  a  vector 
length  «  Sqrt(sum  of  a(i)**2) 


two 


|  Name  | 

Catalog  #  | 

1  1 

P454-0  | 

P455-0 

|  Dot  Product 

P456-0 

j  Vector_Length  | 

P457-0  | 

3. 6. 8. 2. 9. 1.8  PART  DESIGN 


None. 


•5 


i 


3. 6. 8. 2. 9. 2  VECTOROPERATIONSCONSTRAINED  (CATALOG  IP169-0) 

Taking  the  generic  formal  parameter  "vector_elements",  this  generic  package 
defines  a  vector  as  an  constrained,  one-dimensional  array  of  these  elements. 
It  then  defines  operations  on  the  vector.  See  decomposition  section  for 
operations  provided. 


3. 6. 8. 2. 9. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


i 

Requirements  | 

|  Name 

Allocation 

| 

R061  | 

j 

R062 

j  Dot  Product 

R063 

j  VectorLength 

R104  | 

| 

I 
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3. 6. 8. 2. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


|  Vector_Elements 

j  Vector_Elements 
j  Squared 

j  Indices 


floating 
point  type 
floating 
point  type 

discrete 

type 


Type  of  elements  to  be  contained  in  vector  | 
type  defined  by  this  package  i 

Resulting  type  from  the  operation  I 

Vector_Elements  *  Vector_Elements;  used  j 
for  result  of  a  dot  product  operation  | 
Used  to  dimension  exported  Vectors  type  j 


Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  function 

1 

1 

Used  to  define  the  operation 

VectorElements  *  Vector_Elements  :■ 
Vector~Elements  Squared 

SqRt 

|  function 

Square  root  function  taking  an  object  of  type 

1 

1 

Vector_Elements_Squared  and  returning  an  object 
of  type  VectorJBlements 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

Range 

|  Operators 

Description  | 

|  Vectors 

1 

N/A 

|  See  decomposition 
j  section 

Constrained  array  of  Elements  | 

1 

3. 6. 8. 2. 9. 2. 3  LOCAL  ENTITIES 


None. 
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3. 6. 8. 2. 9. 2. 4  INTERRUPTS 


None. 


3. 6. 8. 2. 9. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Operations; 

•  •  • 

type  My_Indices  is  (a,  b,  c); 

•  •  * 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  My_Elements; 

•  •  • 

function  (Left  :  My_Elements; 

Right  :  My_Elements)  return  My_Elements_Squared; 

•  •  • 

function  SqRt  (Input  :  Vector  Elements_Squared) 
return  Vector_Elements; 

•  •  • 

package  V_Opns  is  new 

General_Vector_Matrix_Operations. 
Vector_Operations_Cons  trained 

(VectorElements  «>• My_Elements, 

Vector_Elements_Squared  ■>  My_Elements_Squared, 
Indices  ■>  My_Indices); 

use  V_Opns; 

•  •  • 

Vectorl  :  VOpns. Vectors; 

Vector2  :  VOpns. Vectors; 

•  •  • 
begin 
•  •  • 

Vectorl  :«  Vectorl  +  Vector2; 


3. 6. 8. 2. 9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 2. 9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name  |  Type  |  Description  | 


1  "+" 

function  |  Adds  two  vectors  with  m  elements 

1 

|  c(i)  -  a(i)  +  b(i) 

I 

function  j  Subtracts  two  vectors  with  m 

! 

|  c(i)  -  a(i)  -  b(i) 

|  Dot  Product 

function  |  Performs  a  dot  product  operation  on  two 

vectors  with  m  elements 

1 

|  c  =  a(i)  *  b(i> 

|  Vector  Length 

function  j  Calculates  the  length  of  a  vector 

j  length  =  Sqrt(sum  of  a(i)**2) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  "+" 

|  P458-0  | 

|  P459-0 

|  Dot  Product 

|  P460-0  | 

|  Vector_Length 

|  P461-0  | 

3. 6. 8. 2. 9. 2. 8  PART  DESIGN 
None. 


3. 6. 8. 2. 9. 3  MATRIX_OPERATIONS_UNCONSTRAINED  (CATALOG  #P170-0) 

Taking  the  generic  formal  parameter  "elements",  this  generic  package  defines  a 
matrix  as  an  unconstrained,  two-dimensional  array  of  these  elements.  It  then 
defines  operations  on  the  matrix.  See  the  decomposition  section  for  a 
description  of  the  operations  provided. 

No  exceptions  are  raised  by  this  package;  however,  exceptions  are  raised  by 
routines  in  this  package: 


|  Name  |  Raised  By 


When/Why  Raised 


Dimens ion_ 
Error 

1  ”  +  ” 

»* _ »f 

I 

1 

Raised  if  the  sizes  of  the  two 
input  matrices  are  not  the  same 

Dimension 

I  Set  to  Identity  Matrix 

1 

Raised  if  input  matrix  is  not  a 

Error 

1 

square  matrix 

Dimension 

| 

1 

Raised  if  the  lengths  of  the  inner 

Error 

1 

1 

dimensions  of  the  two  input  matrices 
are  not  the  same 
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3. 6. 8. 2. 9. 3.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


1 

1 

Requirements 

1 

|  Name 

1 

Allocation 

1 

"+"  (matrices  +  matrices) 

1 

R079 

1 

(matrices  -  matrices) 

I 

R080 

1 

"+"  (matrices  +  elements) 

1 

R075 

1 

(matrices  -  elements) 

1 

R076 

1 

Set  to  Identity  Matrix 

1 

R155 

Set  to  Zero  Matrix 

1 

R156 

1 

1 

R077 

1 

3. 6. 8. 2. 9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

1 

Description  | 

Elements 

floating 

1 

Used  to  define  type  of  elements  in  matrix 

point  type 

1 

defined  by  this  package 

Col  Indices 

discrete 

1 

Used  to  define  second  dimension  of  exported 

type 

1 

matrix  type 

Row  Indices 

discrete 

1 

Used  to  define  first  dimension  of  exported 

type 

1 

matrix  type 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

|  Range 

|  Operators 

Description  | 

|  Matrices 

I 

|  N/A 

1 

|  See  decomposition 
j  section 

Unconstrained,  two-dimensional  | 

array  of  Elements  ! 

3. 6. 8. 2. 9. 

3.3  LOCAL 

ENTITIES 

None. 
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3. 6. 8. 2. 9. 3. 4  INTERRUPTS 


None. 


3. 6. 8. 2. 9. 3. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

wi th  General_Vector_Mat r ix_Algebra ; 

•  •  • 

type  My_Col_Indices  is  new  INTEGER  1..10; 
type  My~Row_Indices  is  new  INTEGER  1..10; 

•  ♦  • 

type  My_Elements  is  new  FLOAT; 

•  •  • 

package  M_Opns  is  new 

General_Vec  tor_Ma  t  r  i  x_Algebra .  Ma  t  r  ix_0pera  t  i  ons_Uncons  t  rained 
(Col_Indices  *>  My_Col_Indices, 

Elements  *>  My_Elements, 

Row_Indices  ■=>  My_Row_Indices) ; 

use  M_0pns; 

•  •  • 

subtype  My_Matricesl  is  M_Opns.Matrices(l. .3,  4.. 6); 
subtype  My_Matrices2  is  M_0pns.Matrices(2. .4,  5.. 7); 
subtype  My_Matrices3  is  M_0pns.Matrices(3. .5,  6.. 8); 

•  •  • 

Matrixl  :  My_Matricesl; 

Matrix2  :  My_Matrices2; 

Matrix3  :  My_Matrices3; 

•  •  • 
begin 
•  •  • 

Matrixl  :-  Matrix2  +  Matrix3; 


3. 6. 8. 2. 9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 2. 9. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

Type  I 

Description  | 

"+"  (matrices  +  matrices) 

function  | 

1 

Adds  two  m  x  n  matrices 
c(i , j )  =  a(i , j )  =  b(i,j) 

(matrices  -  matrices) 

function  | 

1 

Subtracts  two  m  x  n  matrices 
c(i,j)  «  a(i,j)  -  b(i,j) 

"+"  (matrices  +  elements) 

function  | 

1 

Adds  a  scalar  value  to  each 
element  of  an  m  x  n  matrix 
c(i » j )  =  a(i ,  j)  +  b 

(matrices  -  elements) 

function  | 

1 

1 

Subtracts  a  scalar  value  from 
each  element  of  an  m  x  n  matrix 
c(i,j)  -  a(i , j )  -  b 

Set  to  Identity  Matrix 

procedure! 

Initializes  an  m  x  m  matrix  to  an 

1 

m  x  m  identity  matrix 

Set  to  Zero  Matrix 

procedure! 

Sets  all  components  of  an  m  x  m 

1 

matrix  to  zero 

«*" 

function  j 

1 

I 

Multiplies  an  m  x  n  matrix  by  an 
n  x  p  matrix,  returning  the 
resultant  m  x  p  matrix 
c(i, j )  *  a(i,k)  *  b(k, j ) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

Catalog  #  | 

"+"  (matrices  +  matrices) 

P461-0  | 

(matrices  -  matrices) 

P462-0  | 

(matrices  +  elements) 

P463-0 

(matrices  -  elements) 

P464-0 

Set  to  Identity  Matrix 

P465-0 

Set  to  Zero  Matrix 

P466-0  j 

"*« 

P467-0  ( 

3. 6. 8. 2. 9. 3. 8  PART  DESIGN 


None. 


3. 6. 8. 2. 9. 4  MATRI X_OPERAT I ONS_CONSTRAINED  (CATALOG  #P171-0) 

Taking  the  generic  formal  parameter  "elements",  this  generic  package  defines  a 
matrix  as  a  constrained,  two-dimensional  array  of  these  elements.  It  then 
defines  operations  on  the  matrix.  See  the  decomposition  section  for  a 
description  of  the  operations  provided. 

No  exceptions  are  raised  by  this  package;  however,  exceptions  are  raised  by 
routines  in  this  package: 
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|  Name 

Raised  By 

Vhen/Vhy  Raised  | 

|  Dimension_ 
j  Error 

Set  to  Identity  Matrix 
_  _ 

Raised  if  input  matrix  is  not  a  | 

square  matrix  j 

3. 6. 8. 2. 9. 4.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


| 

j  Name 

Requirements  j 
Allocation 

|  "+"  (matrices  +  matrices) 

R079  | 

j  (matrices  -  matrices) 

R080  I 

j  "+"  (matrices  +  elements) 

R075 

j  (matrices  -  elements) 

R076 

Set  to  Identity  Matrix 

R155  I 

j  Set  to  Zero  Matrix 

R156  | 

3. 6. 8. 2. 9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

floating 

Used  to  define  type  of  elements  in  matrix 

1 

point  type 

defined  by  this  package 

|  Col  Indices 

discrete 

Used  to  define  second  dimension  of  exported 

type 

matrix  type 

j  Row  Indices 

discrete 

Used  to  define  first  dimension  of  exported 

type 

matrix  type 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

|  Range 

|  Operators 

|  Description  | 

|  Matrices 

|  N/A 

|  See  decomposition 

|  Constrained,  two-dimensional 

1 

1 

1  section 

j  array  of  Elements 

CAMP  Software  Top  Level  Design  Document 


Page  459 


3. 6. 8. 2. 9. 4. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 2. 9. 4. 4  INTERRUPTS 


None. 


3. 6. 8. 2. 9. 4. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

type  My_Col_Indices  is  new  INTEGER  1..10; 
type  My_Rov_Indices  is  new  INTEGER  1..10; 

•  •  • 

type  My_Elements  is  new  FLOAT; 
package  M_0pns  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Cons  trained 
(Col_Indices  «>  My_Col_Indices, 

Elements  «>  My_Elements, 

Row_Indices  ->  My_Row_Indices); 

use  M_Opns; 

•  •  • 

Matrixl  :  MOpns. Mat rices; 

Matrix2  :  M_0pns. Matrices; 

Matrix3  :  M_Opns. Matrices; 

•  •  • 
begin 
•  •  • 

Matrixl  :«  Matrix2  +  Matrix3; 


3. 6. 8. 2. 9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 2. 9. 4. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name  |  Type  |  Description 


|  "+"  (matrices  +  matrices) 

function  |  Adds  two  m  x  n  matrices 

1  c(i,j)  =  a(i, j)  «  b(i,j) 

|  (matrices  -  matrices) 

function  j  Subtracts  two  m  x  n  matrices 

1 

|  c(i,j)  -  a(i,j)  -  b(i,j) 

|  "+"  (matrices  +  elements) 

function  j  Adds  a  scalar  value  to  each 

1 

j  element  of  an  m  x  n  matrix 

1 

|  c(i , j )  -  a(i,j)  +  b 

|  (matrices  -  elements) 

function  |  Subtracts  a  scalar  value  from 

1 

j  each  element  of  an  m  x  n  matrix 

1 

f  c(i,j)  -  a(i, j)  -  b 

1  Set  to  Identity  Matrix 

procedure)  Initializes  an  m  x  m  matrix  to  an 

j  m  x  m  identity  matrix 

Set  to  Zero  Matrix 

procedure!  Sets  all  components  of  an  m  x  m 

j  matrix  to  zero 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name  | 

Catalog  #  | 

(matrices  + -matrices)  | 

P468-0  | 

(matrices  -  matrices)  j 

P469-0 

"+"  (matrices  +  elements)  j 

P470-0  j 

(matrices  -  elements)  j 

P471-0 

Set  to  Identity  Matrix 

P472-0 

Set_to_Zero_Matrix  j 

P473-0  | 

3. 6. 8. 2. 9. 4. 8  PART  DESIGN 


None. 


3. 6. 8. 2. 9. 5  DYNAMICALLY_SPARSE_MATRIX_OPERATIONS_UNCONSTRAINED  (CATALOG  #P172-0) 

This  package  defines  a  dynamically  sparse  matrix  and  operations  on  it.  All 
elements  of  the  matrix  are  stored,  but  most  of  the  elements  are  expected  to  be 
0.  Which  elements  are  zero  does  not  have  to  remain  the  same.  See 
decomposition  section  for  the  operations  provided. 

No  exceptions  are  raised  by  this  package.  However,  exceptions  are  raised  by 
routines  it  contains: 
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|  Name  |  Raised  By  |  Uhen/Why  Raised  | 


Dimension_  |  Set_to_Identity_Matrix  |  Raised  if  input  matrices  are  not 
Error  |  Add_to_Identity~  j  square  matrices 

|  Subtract_from_Identity  j 


Dimension_  |  "+"  |  Raised  if  both  input  matrices  are 

Error  j  |  not  m  x  n  matrices 


3. 6. 8. 2. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  satisfies  CAMP  requirement  R226. 


3. 6. 8. 2. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


1 

Name 

1  Type 

|  Description 

1 

1 

Elements 

|  floating 

|  Data  type  of  elements  in  exported  matrix 

type  | 

1 

j  point  type 

1 

1 

1 

Col  Indices 

j  discrete 

|  Used  to  dimension  exported  matrix 

type 

1 

1 

1  type 

1 

1 

1 

Row  Indices 

j  discrete 

|  Used  to  dimension  exported  matrix 

type 

1 

1 

1  type 

1 

1 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name  j 

Range 

|  Operators 

Description  | 

|  Matrices  | 
1 

N/A 

|  See  decomposition 
j  section 

Unconstrained,  two-dimensional  | 

array  of  Elements  i 

3. 6. 8. 2. 9. 5. 

3  LOCAL 

ENTITIES 

None. 
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3. 6. 8. 2. 9. 5. 4  INTERRUPTS 


None. 


3. 6. 8. 2. 9. 5. 5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  General_Vector  Matrix_Algebra; 

type  My_Col_Indices  is  new  INTEGER  1..10; 
type  My_Row_Indices  is  new  INTEGER  1..10; 

•  •  • 

type  My_Elements  is  new  FLOAT; 

•  *  • 

package  Sparse  M  Opns  is  new 

GeneraI_Vector_Matrix_Algebra. 

Dynamically_Sparse_Ma t  r ix_0pera  t i ons_Uncons  trained 
(Col_IndIces  =>-My_Col_Indices , 

Elements  =>  My_Eleiiients, 

Row_Indices  *>  My_Row  Indices); 
use  Sparse_M_Opns;~ 

•  •  • 

subtype  My_Matricesl  is  Sparse_M_Opns.Matrices(l. .3,  4.. 6); 
subtype  My_Matrices2  is  Sparse_M_0pns.Matrices(2. .4,  5.. 7); 
subtype  My_Matrices3  is  Sparse~M_0pns.Matrices(3. .5,  6.. 8); 

•  •  • 

Matrixl  :  MyMatricesl; 

Matrix2  :  My_Matrices2; 

Matrix3  :  My_Matrices3; 

•  •  • 
begin 


•  •  • 

Matrixl 


Matrix2  +  Matrix3; 


3. 6. 8. 2. 9. 5. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 2. 9. 5. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 


Type  |  Description 


Set_to_Identity_Matrix 
Se t_ t o_Ze r o_Ma t r i x 
Add_to_Identity 
Subtract_from_Identity 

ft  +  ft 
?»_lf 


procedure 

procedure 

function 

function 

function 

function 


Sets  a  square  matrix  to  an  identity 
matrix 

Sets  each  element  of  a  square  matrix 
to  zero 

Adds  a  square  input  matrix  to  an 
identity  matrix 

Subtracts  a  square  input  matrix  from 
an  identity  matrix 

Adds  two  m  x  n  matrices 
c(i,j)  -  a(i,j)  +  b(i, j) 

Subtracts  two  m  x  n  matrices 
c(i,J)  -  a(i,j)  -  b(i,j) 


The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

Catalog  #  ( 

Set  to  Identity  Matrix 

P475-0  | 

Set  to  Zero  Matrix 

P476-0 

Add  to  Identity 

P477-0  i 

Subtract  from  Identity 

P478-0  f 

tl  ,  II  ““ 

P479-0 

W_lf 

P480-0  | 

3. 6. 8. 2. 9. 5. 8  PART  DESIGN 
None. 


3. 6. 8. 2. 9. 6  DYNAMICALLY_SPARSE_MATRIX_OPERATIONS_CONSTRAINED  (CATALOG  #P173-0) 

This  package  defines  a  dynamically  sparse  matrix  and  operations  on  it.  All 
elements  of  the  matrix  are  stored,  but  most  of  the  elements  are  expected  to  be 
0.  Vhich  elements  are  zero  does  not  have  to  remain  the  same.  See 
decomposition  section  tor  the  operations  provided. 

No  exceptions  are  raised  by  this  package.  However,  exceptions  are  raised  by 
routines  it  contains: 


|  Name  |  Raised  By  |  When/Why  Raised  | 


Dimension_  |  Set_to_Identity_Matrix  |  Raised  if  input  matrices  are  not 
Error  |  Add_to_Identity  |  square  matrices 

j  Subtract_from_Identity  | 


Dimension_  j  "+"  |  Raised  if  both  input  matrices  are 

Error  |  j  not  m  x  n  matrices 


1/ 
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3. 6.8. 2. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  satisfies  CAMP  requirement  R226. 

3. 6. 8. 2. 9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

Elements 

|  floating 

1  Data  type  of  elements  in  exported  matrix  type  | 

point  type 

1 

Col  Indices 

j  discrete 

|  Used  to  dimension  exported  matrix 

type  1 

!  type 

Row  Indices 

|  discrete 

|  Used  to  dimension  exported  matrix 

type 

1  type 

1 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name  | 

Range 

|  Operators 

|  Description  | 

|  Matrices  | 

1  1 

N/A 

|  See  decomposition 
|  section 

|  Cconstrained,  two-dimensional  | 

j  array  of  Elements  | 

3. 6. 8. 2. 9. 6. 3 

LOCAL 

ENTITIES 

None. 


3. 6. 8. 2. 9. 6. 4  INTERRUPTS 
None. 


3. 6. 8. 2. 9. 6. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

type  My_Col_Indices  is  new  INTEGER  1..10; 
type  My_Row_Indices  is  new  INTEGER  1..10; 


CAHP  Software  Top  Level  Design  Document 


Page  465 


type  My_Elements  is  new  FLOAT; 

•  •  • 

package  Sparse  M_0pns  is  new 

GeneraI_Vector_Matrix_Algebra. 

Dynamically-Sparse~Matrix_Operations_Cons  trained 
(Col_IndIces  «>  My_Col_Indices, 

Elements  =>  My_Elements, 

Row_Indices  =>  My_Rov_Indices) ; 
use  Sparse_M_Opns ; 

«  •  « 

subtype  My_Matricesl  is  Sparse_M_Opns.Matrices(l.  .3,  4.. 6); 
subtype  My_Matrices2  is  Sparse~M~0pns.Matrices(2. .4,  5.. 7); 
subtype  My_Matrices3  is  Sparse_M~0pns.Matrices(3. .5,  6.. 8); 
•  •  • 

Matrixl  :  Sparse_M_Opns. Matrices; 

Matrix2  :  Sparse_M_Opns. Mat rices; 

Matrix3  :  Sparse_M_Opns. Mat rices; 

begin 
♦  •  • 

Matrixl  :«  Matrix2  4  Matrix3; 


3. 6. 8. 2. 9. 6. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 2. 9. 6. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type  |  Description 


Set_to_Identity_Matrix 
Se t _ t o_Ze r o_Ma t r i x 
Add_to_Identity 
Subtract_from_Identity 

ff  +  « 


fl 


?! 


procedure 

procedure 

function 

function 

function 

function 


Sets  a  square  matrix  to  an  identity 
matrix 

Sets  each  element  of  a  square  matrix 
to  zero 

Adds  a  square  input  matrix  to  an 
identity  matrix 

Subtracts  a  square  input  matrix  from 
an  identity  matrix 

Adds  two  m  x  n  matrices 
c(i,j)  =  a(i,j)  +  b(i,j) 

Subtracts  two  m  x  n  matrices 
c(i,j)  =  a(i,j)  -  b(i,j) 


The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 
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|  Name 

Catalog  #  | 

Set  to  Identity  Matrix 

P482-0  | 

Set  to  Zero  Matrix 

P474-0  | 

Add  to  Identity 

P481-0  | 

Subtract  from  Identity 

P483-0  i 

tt  +  H 

P484-0  f 

»»_»! 

P485-0  | 

3. 6. 8. 2. 9. 6. 8  PART  DESIGN 
None. 


3. 6. 8. 2. 9. 7  SYMMETRIC_HALF_STORAGE_MATRIX_OPERATIONS  (CATALOG  #P174-0) 

This  package  defines  a  symmetric  half  storage  matrix  and  provides  operations  on 
it.  For  the  operations  provided,  see  the  decomposition  section.  The  bottom 
half  the  the  matrix  will  be  stored  in  row-major  order. 

The  following  table  describes  the  exceptions  raised  by  this  package: 


|  Name 

|  When/ Why  Raised  | 

|  Dimension  Error 

1  "  1 

|  Raised  if  the  lengths  of  Col_Indices  and  Row_Indices  is  | 

|  not  the. same  j 

3. 6. 8. 2. 9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R211. 


3. 6. 8. 2. 9. 7. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

|  Description  | 

Elements 

floating 

|  Data  type  of  elements  in  the  half  storage  matrix 

point  type 

j  and  in  the  Slices  array 

Coi 

discrete 

j  Used  to  dimension  column  slices 

Indices 

type 

Row 

discrete 

j  Used  to  dimension  row  slices  of  the  half  storage 

Indices 

type 

j  matrix  and  to  determine  the  number  of  elements 

Col 

Slices 

Row 

array 

j  which  need  to  be  stored 

j  Data  type  defining  a  column  slice  of  a  matrix 

array 

j  Data  type  defining  a  row  slice  of  a  matrix 

Slices 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

1 

Range 

Operators  | 

Description  | 

Matrices 

1 

N/A 

See  | 

A  one-dimensional  representation  of 

decomposition  j 

a  two-dimensional,  half-storage 

1 

section  | 

matrix;  the  bottom  half  of  the 

1 

matrix  will  be  stored  in  row-major 

1 

• 

order 

Data  objects: 

The  following  chart  describes  the  data  objects  exported  by  this  part: 


|  Name  |  Type  |  Value  |  Description 


|  Entry_Count  |  Positive  | 


|  Number  of  stored  values  from  the  half-  | 
j  storage  matrix;  the  number  of  elements  j 
j  stored  in  a  half-storage  matrix  with  j 
j  n  rows  elements  is  n(n+l)/2  | 


3. 6. 8. 2. 9. 7. 3  LOCAL  ENTITIES 
None. 


3. 6. 8. 2. 9. 7. 4  INTERRUPTS 


None. 


CAMP  Softvare  Top  Level  Design  Document 


Page  468 


3. 6. 8. 2. 9. 7. 5  TIMING  AND  SEQUENCING 

The  folloving  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_Rov_Indices  is  (x,  y,  z); 

•  •  • 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  FLOAT; 

•  •  • 

function  (Left  :  My_Elements; 

Right  :  My_Elements)  return  My_Elements_Squared; 

function  Sqrt  (Input  :  My_Elements_Squared)  return  My_Elements; 
«  •  • 

package  V_Opns  XYZ  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Elements  ■>  My_Elements, 

Vector~Elements_Squared  ■=>  My_Elements_Squared, 
Indices  *>  My_Row_Indices) ; 

use  V_Opns_XYZ; 

•  •  • 

subtype  Vectors_XYZ  is  V_Opns_XYZ.Vectors(My_Row_Indices) ; 

•  •  • 

package  VOpns  ABC  is  new 

GeneraI_Vec  t  or_Ma  t  r  ix_Algebra .  Vec  t  or_Opera  t  i  ons 
(VectorElements  ->  MyElements, 

Vector_Elements_Squared  *>  My_Elements_Squared, 
Indices  ■>  My_Col_Indices) ; 

use  V_0pns_ABC; 

*  *  f 

subtype  Vectors_ABC  is  V_Opns_ABC.Vectors(My_Col_Indices) ; 

•  •  • 

package  HStorage_M_Opns  is  new 

Gerveral_Vector_Matrix_Algebra. 

Symme  t  r i c_Hal f _S  t or age_Ma  t  r i x_0pe  r a  t i ons 
(Elements  =>  My_Elements, 

Col_Indices  ->  My_Col_Indices, 

Row_Indices  =>  My~Row_Indices, 

Col~Slices  ■>  Vectors_XYZ, 

Row~Slices  *>  Vectors~ABC) ; 
use  HStorage_M_Opns; 

•  •  • 

Half_Matrix  :  HStorage_M_Opns. Matrices; 

•  •  • 
begin 
*  »  ♦ 

HalfMatrix  :=  HStorage_M_Opns.Identity_Matrix; 
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3. 6. 8. 2. 9. 7. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 2. 9. 7. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1 

Type 

Description  | 

Initialize 

1 

procedure 

Initializes  matrix  a  row  at  a  time 

Identity  Matrix 

function 

Sets  matrix  to  an  identity  matrix 

Zero  Matrix 

1 

i 

function 

Sets  each  element  of  the  matrix  to 
zero 

Change  Element 

1 

procedure 

Changes  a  single  element  of  the  matrix 

RetrieveJElement 

! 

1 

function 

Retrieves  a  single  element  of  the 
matrix 

Row  Slice 

1 

function 

Retrieves  one  row  from  the  matrix 

Column  Slice 

1 

function 

Retrieves  one  column  from  the  matrix 

Add_to  Identity 

1 

1 

function 

Adds  input  matrix  to  an  identity 
matrix 

Sub  t  rac  t_f  rom_Iden  t i ty 

I 

1 

function 

Subtracts  input  matrix  from  an 
identity  matrix 

»1  +  t» 

1 

1 

function 

Adds  two  half-storage  matrices 
c(i,j)  -  a(i, j )  +  b(i,j) 

1 

1 

function 

Subtracts  two  half-storage  matrices 
c(i,j)  -  a(i,j)  -  b(i,j) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

Catalog  #  | 

|  Initialize 

P486-0  | 

j  Identity  Matrix 

P487-0 

j  Zero  Matrix 

P488-0 

j  Change  Element 

P489-0  | 

j  Retrieve  Element 

P490-0 

j  Row  Slice 

P491-0  | 

j  Column  Slice 

P492-0  | 

j  Add  to  Identity 

P493-0  j 

j  Subtract  from  Identity 

P494-0  i 

j 

P495-0 

1 

P496-0  j 

3. 6. 8. 2. 9. 7. 8  PART  DESIGN 


None. 
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3. 6. 8. 2. 9. 8  SYMMETRIC  FULL  STORAGE  MATRIX  OPERATIONS  UNCONSTRAINED  (CATALOG 
#P175-0) 

This  package  defines  a  symmetric  full  storage  matrix  type  and  provides 
operations  on  it.  For  the  operations  provided,  see  the  decomposition  section. 
All  elements  of  the  matrix  are  stored,  but  operations  on  the  matrices  will  take 
advantage  of  the  fact  that  they  are  symmetric. 

No  exception  are  raised  by  this  package.  Exceptions  are,  however,  raised  by 
routines  in  this  package. 


|  Name  |  Raised  By 


When/Why  Raised 


Dimension 

Error 


Set_to_Identity_Matrix  |  Raised  if  the  input  matrix  is  not  a  | 
Set_to_Zero_Matrix  j  square  matrix  j 
Add_to_Identity  j  | 
Subtract  from_Identity  j  j 
Change  Element 


Dimension 

Error 


l»  »» 


Raised  if  both  input  matrices  are 
not  m  x  m  matrices 


Invalid 

Index 


Change_Element 


Raised  if  an  attempt  is  made  to 
change  an  element  that  is  beyond 
the  dimensions  of  the  matrix 


3. 6. 8. 2. 9. 8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3. 6. 8. 2. 9. 8. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 


The  following 

table  describes 

the  generic  formal  types  required  by  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Elements 

1 

|  Col_Indices 
j  Row_Indices 

|  floating 
j  point  type 
j  discrete  type 
j  discrete  type 

j  Data  type  of  elements  in  exported  matrix  | 

1  type 

|  Used  to  dimension  exported  matrix  type  | 

j  Used  to  dimension  exported  matrix  type  | 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 
Exceptions: 
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The  following  c'..art  describes  the  exceptions  exported  by  this  part: 


|  Name  | 

|  Description  | 

|  Invalid  Index  | 
1  "  1 

Indicates  an  attempt  was  made  to  access  an  element  beyond  | 

!  the  dimensions  of  the  array  j 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name  |  Range 

|  Operators 

|  Description  | 

|  Matrices  |  N/A 

1  1 

|  See  decomposition 

1 

|  Unconstrained,  two-dimensional 
j  array  of  Elements  | 

3. 6. 8. 2. 9. 8. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 2. 9. 8. 4  INTERRUPTS 
None. 


3. 6. 8. 2. 9. 8. 5  TIMING  AND  SEQUENCING 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Col_Indices  is  new  INTEGER  1..10; 
type  My_Row~Indices  is  new  INTEGER  1..10; 

•  •  • 

type  My_Elements  is  new  FLOAT; 

package  Full_Storage_M_Opns  is  new 

General_Vector~Matrix_Algebra. 

Symme t r ic_Full_S torage_Ma trix  Operati ons_Uncons trained 
(Col_Indices  *>  My_Col_IndIces , 

Elements  =>  My_Elements, 

Row_Indices  =>  My~Row  Indices); 
use  Full_Storage_M_Opns; 

•  •  # 

subtype  My_Matricesl  is  Full_Storage_M_Opns.Matrices(l. .3,  4.. 6); 
subtype  My_Matrices2  is  Full_Storage_M_0pns.Matrices(2. .4,  5.. 7); 
subtype  My~Matrices3  is  Full_Storage  M_0pns.Matrices(3. .5,  6.. 8); 
•  *  • 

Matrixl  :  My_Matricesl; 

Matrix2  :  Myjia trices 2; 

Matrix3  :  My~Matrices3; 

•  •  • 
begin 
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•  •  • 

Matrixl  Matrix2  +  Matrix3; 


3. 6. 8. 2. 9. 8. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 2. 9. 8. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

Description 

1 

Change_Elemen  t 

procedure 

Changes  an  element,  along  with  its 
symmetric  counterpart 

1 

Set_to_Identity  Matrix 

procedure 

Sets  square  matrix  to  an  identity 
matrix 

1 

Set  to  Zero  Matrix 

procedure 

Sets  each  element  of  a  square  matrix 
to  zero 

! 

1 

Add_  to_Identity 

function 

Adds  square  matrix  to  an  identity 
matrix 

1 

1 

Subtract_from_Identity 

function 

Subtracts  square  matrix  from  an 
identity  matrix 

1 

1 

W  +  f1 

function 

Adds  two  square  matrices 
c(i,j)  «  a(i, j )  ♦  b(i,j) 

1 

I1_tt 

function 

Subtracts  two  square  matrices 
c(i,j)  -  a(i,j)  -  b(i,j) 

1 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  Change  Element 

|  P497-0  | 

Set  to  Identity  Matrix 

i  P498-0 

Set  to  Zero  Matrix 

j  P499-0 

j  Add  to  Identity 

|  P500-0  : 

j  Subtract  from  Identity 

|  P501-0 

|  "+" 

P502-0 

| 

|  P503-0  j 

3. 6. 8. 2. 9. 8. 8  PART  DESIGN 


None. 


3. 6. 8. 2. 9. 9  SYMMETRIC_FULL_STORAGE_MATRIX_OPERATIONS_CONSTRAINED  (CATALOG  IP176-0) 

This  package  defines  a  symmetric  full  storage  matrix  type  and  provides 
operations  on  it.  For  the  operations  provided,  see  the  decomposition  section. 

All  elements  of  the  matrix  are  stored,  but  operations  on  the  matrices  will  take 
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advantage  of  the  fact  that  they  are  symmetric. 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  ! 

|  Dimension  Error 

1  "  1 

|  Raised  if  an  attempt  is  made  to  instantiate  other  than  | 

|  a  square  matrix  j 

3. 6. 8. 2. 9. 9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R227. 


3. 6. 8. 2. 9. 9. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

Description  . 

1 

|  Elements 

|  floating 

Data  type  of  elements  in  exported  matrix  | 

1 

I  point  type 

type 

1 

j  Col  Indices 

j  discrete  type 

Used  to  dimension  exported  matrix 

type  | 

|  Row_Indices 

j  discrete  type 

Used  to  dimension  exported  matrix 

type  | 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

Range 

|  Operators 

Description  | 

|  Matrices 

1 

N/A 

|  See  decomposition 

1 

Constrained,  two-dimensional  | 

array  of  Elements  j 

3. 6. 8. 2. 9. 9. 3  LOCAL  ENTITIES 


None. 
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3. 6. 8. 2. 9. 9. 4  INTERRUPTS 


None. 


3. 6. 8. 2. 9. 9. 5  TIMING  AND  SEQUENCING 

with  General_Vector_Matrix_Algebra; 

type  My_Col_Indices  is  new  INTEGER  1..10; 
type  My_Row_Indices  is  new  INTEGER  1..10; 

•  •  • 

type  My_Elements  is  new  FLOAT; 

•  •  • 

package  Full_Storage_M_Opns  is  new 

General_Vector_Matrix_Algebra. 

Symmetric_Full_Storage_Matrix  Operations_Constrained 
(Col_Indices  *=>  My_Col_IndIces, 

Elements  ■>  My_Elements, 

Row_Indices  ■>  My_Row_Indices) ; 
use  Full_Storage_M_Opns; 

Matrixl  s  Full_Storage_M_Opns. Matrices; 

Matrix2  s  Full~Storage_M_Opns. Matrices; 

Matrix3  :  Full~Storage_M_Opns. Matrices; 


•  •  • 

Matrixl  s-  Matrix2  +  Matrix3; 


Q 


3. 6. 8. 2. 9. 9. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 2. 9. 9. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 


Type  |  Description 


Change_Element 
Set_to_Identity_Matrix 
Set_to_Zero_Matrix 
Add_to_Identity 
Subtract_f rom_Identi  ty 

•I  .  ?t 


procedure 

procedure 

procedure 

function 

function 

function 

function 


Changes  an  element ,  along  with  its 
symmetric  counterpart 
Sets  square  matrix  to  an  identity 
matrix 

Sets  each  element  of  a  square  matrix 
to  zero 

Adds  square  matrix  to  an  identity 
matrix 

Subtracts  square  matrix  from  an 
identity  matrix 
Adds  two  square  matrices 
c(i,j)  -  a(i,j)  +  b(i,j) 

Subtracts  two  square  matrices 
c(i,j)  -  a(i,j)  -  b(i,j) 


The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

Catalog  #  | 

Change  Element 

P504-0  | 

Set  to  Identity  Matrix 

P505-0  | 

Set  to  Zero  Matrix 

P506-0 

Add~to~Identity 

P507-0  | 

Subtract  from  Identity 

P508-0  | 

P509-0  | 

n_*i 

P510-0  | 

3. 6. 8. 2. 9. 9. 8  PART  DESIGN 


None. 


3.6.8.2.9.10  DIAG0NAL_MATRIX_0PERATI0NS  (CATALOG  IP177-0) 

This  package  defines  a  diagonal  matrix  where  the  only  non-zero  elements  occur 
on  the  diagonal.  It  then  provides  operations  on  that  type.  For  the  operations 
provided,  see  the  decomposition  section. 


|  Name  |  Raised  By  |  Vhen/Vhy  Raised 


Dimension_  |  this  package  |  Raised  if  the  lengths  of  column  and 

Error  j  j  row  indices  are  not  the  same 


Invalid_Index  |  Change_Element  |  Raised  if  element  requested  does  not 
j  Retrieve_Element  |  fall  on  the  diagonal 
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3.6.8.2.9.10.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  require  R212. 


3.6.8.2.9.10.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

floating 

Data  type  of  elements  in  the  exported  matrix 

1 

point  type 

type,  as  well  as  the  imported  array  types 

|  Col  Indices 

discrete 

Used  to  dimension  imported  and  exported 

type 

arrays 

j  Row  Indices 

discrete 

Used  to  dimension  imported  and  exported 

type 

arrays 

|  Col  Slices 

array 

One-dimensional  array  of  column  Elements 

j  Row_Slices 

array 

One-dimensional  array  of  row  Elements 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Exceptions: 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Description  | 

|  Invalid  Index  | 
1  "  1 

|  Indicates  an  attempt  was  made  to  access  an  element  not  on 
|  the  diagonal 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name  |  Range  |  Operators  |  Description 


Diagonal_ 

1 

1.. 

|  N/A 

1 

Used  to  dimension  diagonal_ 

Range 

1 

1 

Entry_ 

Count 

1 

1 

1 

matrices 

Diagonal_ 

N/A 

|  See  decomposition 

1 

Vector  representation  of  a 

Matrices 

1 

1 

j  section 

1 

1 

1 

matrix  where  all  but  the 
diagonal  elements  equal  zero 

Data  objects: 
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The  following  table  describes  the  data  objects  exported  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Entry_Count 

|  Positive 

|  Number  of  diagonal  elements  in  the  array  | 

3.6.8.2.9.10.3  LOCAL  ENTITIES 
None. 


3.6.8.2.9.10.4  INTERRUPTS 
None. 


3.6.8.2.9.10.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My  Col  Indices  is  (a,  b,  c); 
type  My  Row  Indices  is  (x,  y,  z); 

•  •  • 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  FLOAT; 

•  •  • 

function  (Left  :  My_Elements; 

Right  :  My~Elements)  return  My_Elements_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elements_Squared)  return  My_Elements; 

package  V_0pns  XYZ  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Elements  =>  My_Elements, 

Vector_Elements_Squared  =>  My_Elements  Squared, 
Indices  *>  My~Row_Indices); 

use  V_0pns_XYZ; 

•  •  • 

subtype  Vectors_XYZ  is  V_Opns_XYZ.Vectors(My_Row_Indices) ; 

•  •  • 

package  V_0pns  ABC  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Eleients  ~  =>  My_Elements, 

Vector_Elements_Squared  =>  My_Elements_Squared, 
Indices  =>  My_Col_Indices) ; 

use  V_0pns_ABC; 

•  •  • 

subtype  Vectors_ABC  is  V_Opns_ABC.Vectors(My_Col_Indices) ; 

•  •  * 

package  Diagonal_M_0pns  is  new 

General_Vector_Matr ix_Algebra . 
Diagonal_Matrix_Operations 
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(Elements 

Col_Indices 

Row~Indices 

Col][Slices 

Rov^Slices 

use  Diagonal_M_Opns; 


=>  My_Elements, 

=>  My_Col_Indices, 
*>  My~Row  Indices, 
=>  Vectors_XYZ, 

«>  Vectors~ABC) ; 


DiagMatrix  :  Diagonal_M_Opns.Diagonal_Matrices; 


begin 
•  •  • 

Diag_Matrix  Diagonal_M  Opns.Identity_Matrix; 


3.6.8.2.9.10.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.10.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

Description  | 

Identity  Matrix 

function 

Returns  an  identity  matrix 

Zero  Matrix 

function 

Returns  a  zero  matrix 

Change_Element 

procedure 

Changes  a  single  element  of  a 
diagonal  matrix  i 

Re  t  r i eve_Elemen  t 

function 

Retrieves  a  single  element  from  a 
diagonal  matrix 

Row_Slice 

function 

Retrieves  a  row  from  a  diagonal 
matrix 

Column  Slice 

function 

Retrieves  a  column  from  a  diagonal 
matrix 

Add_to_Identity 

function 

Adds  an  input  diagonal  matrix  to  an 
identity  matrix 

Subtract_from_Identity 

function 

Subtracts  an  input  diagonal  matrix 
from  an  identity  matrix 

t»  +  !l 

function 

Adds  two  diagonal  matrices 
c(i,j)  =  a(i, j)  +  b(i,j) 

«_!? 

function 

Subtracts  two  diagonal  matrices 
c(i , j )  =  a(i , j )  -  b(i , j ) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 
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|  Name 

|  Catalog  # 

1 

Identity  Matrix 

|  P511-0 

1 

Zero  Matrix 

j  P512-0 

1 

Change  Element 

i  P513-0 

1 

Retrieve  Element 

|  P514-0 

1 

Row  Slice 

|  P515-0 

1 

Column  Slice 

j  P516-0 

1 

Add  to  Identity 

|  P517-0 

1 

Subtract  from  Identity 

1  P518-0 

1 

M  +  !l 

j  P519-0 

1 

tt_?t 

|  P520-0 

1 

3.6.8.2.9.10.8  PART  DESIGN 


None. 


3.6.8.2.9.11  VECTOR_SCALAR_OPERATIONS_UNCONSTRAINED  (CATALOG  #P178-0) 

This  package  provides  the  functions  to  allow  the  user  to  multiply  or  divide 
each  element  of  a  vector  by  a  scalar. 


3.6.8.2.9.11.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


1 

|  Requirements  | 

|  Name 

j  Allocation 

| 

|  R065  | 

|  V" 

|  R066  I 

3.6.8.2.9.11.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

1 

Description 

1 

Elementsl 

floating 
point  type 

1 

1 

Type  of  elements  in  a  vector; 

Elementsl  :*  Elements2  *  Scalars 

1 

1 

Elements2 

floating 
point  type 

1 

1 

Type  of  elements  in  a  vector; 

Elements2  :=  Elementsl  /  Scalars 

1 

1 

Scalars 

floating 
point  type 

1 

1 

Type  of  value  to  be  used  for 
multiplying  and  dividing 

I 

1 

Indicesl 

discrete 

1 

Used  to  dimension  Vectorsl 

1 

Indices2 

discrete 

1 

Used  to  dimension  Vectors2 

1 

Vectorsl 

array 

1 

An  array  of  Elementsl 

1 

Vectors2 

array 

1 

An  array  of  Elements2 

1 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|  «*« 

|  function 

|  Used  to  define  the  operation 

1 

1 

j  Elementsl  :«  Elements2  *  Scalars 

j  "/" 

|  function 

|  Used  to  define  the  operation 

1 

1 

j  Elements2  :«  Elementsl  /  Scalars 

3.6.8.2.9.11.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.11.4  INTERRUPTS 


None. 


3.6.8.2.9.11.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Indices  is  (a,  b,  c); 

•  •  • 

type  My_Elementsl  ■  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl ; 
type  My_Elements2~  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  Scalars  is  new  FLOAT; 

•  t  • 

function  (Left  :  My_Elementsl, 

Right  :  My "Elements!)  return  My_Elementsl_Squared; 
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function  "*”  (Left 
Right 


My_Elements2, 

My~Elements2)  return  My_Elements2_Squared; 


function  (Left 
Right 


My  Elements2, 

Scalars)  return  My  Elementsl; 


function  "/"  (Left 
Right 


My_Elementsl, 

Scalars)  return  My_Elements2; 


function  Sqrt  (Input  :  My_Elementsl  Squared)  return  MyJElementsl; 
function  Sqrt  (Input  :  My_Elements2~Squared)  return  My~Elements2; 


package  V_0pnsl  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector_Elements  ■>  My_Elementsl, 

Vector_Elements_Squared  =>  My_Elementsl_Squared, 

Indices  ~  ->  My~Indices) ; 

use  V_0pnsl; 

•  •  • 

subtype  Vectorsl  is  V_Opnsl.Vectors(My_Indices) ; 


package  V_Opns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector_Elements  ->  MyJElements2, 

Vector_Elements_Squared  ->  My~Elements2_Squared, 

Indices  ■>  My^Indices); 

use  V_0pns2; 

•  •  • 

subtype  Vectors2  is  V_Opns2.Vectors(My_Indices) ; 

•  •  • 

package  VSOpns  is  new 

GeneralVectorMatrixAlgebra. 

Vector_Scalar_Operations_Unconstrained 
(Elementsl  ■>  My  Elemintsl, 


Elements2 

Indicesl 

Indices2 

Vectorsl 

Vectors2 

Scalars 


use  V  S  Opns; 


*>  My_Elements2, 
*>  My_Indices, 

«>  My_Indices, 

■>  Vectorsl, 
t>  Vectors2, 

«>  Scalars); 


Vectorl  :  Vectorsl; 

Vector2  :  Vectors2; 

Gain  :  Scalars; 

•  •  • 
begin 
•  •  # 

Vectorl  Vector2  *  Gain; 


3.6.8.2.9.11.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.8.2.9.11.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description  | 

»*" 

|  function 

Multiplies  each  element  of  a 

1 

vector  by  a  scalar  value 

1 

c(i)  «  a(i)  *  b 

It /If 

|  function 

Divides  each  element  of  a  vector 

1 

by  a  scalar  value 

1 

c(i)  -  a(i)  /  b 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  "*« 

|  P521-0  j 

|  "/" 

|  P522-0  | 

3.6.8.2.9.11.8  PART  DESIGN 


None. 


3.6.8.2.9.12  VECTOR  SCALAR  OPERATIONS  CONSTRAINED  (CATALOG  #P179-0) 

This  package  provides  the  functions  to  allow  the  user  to  multiply  or  divide 
each  element  of  a  vector  by  a  scalar. 


3.6.8.2.9.12.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


1 

|  Requirements  | 

|  Name 

j  Allocation 

| 

|  R065  | 

|  "/" 

|  R066  | 

3.6.8.2.9.12.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 
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The  following  table  describes  the  generic  formal  types  required  by  this  parts 


|  Name 

Type 

Description  | 

Elementsl 

floating 

Type  of  elements  in  a  vector; 

point  type 

Elementsl  :  =  Elements2  *  Scalars 

Elements2 

floating 

Type  of  elements  in  a  vector; 

point  type 

Elements2  :=  Elementsl  /  Scalars 

Scalars 

floating 

Type  of  value  to  be  used  for 

point  type 

multiplying  and  dividing 

Indices 

discrete 

Used  to  dimension  Vectorsx 

Vectorsl 

array 

An  array  of  Elementsl 

Vectors2 

array 

An  array  of  Elements2 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

|  Description  | 

|  «*« 

function 

|  Used  to  define  the  operation  | 

|  Elementsl  :*=  Elements2  *  Scalars  j 

j 

1 

function 

j  Used  to  define  the  operation  j 

j  Elements2  :«  Elementsl  /  Scalars  j 

3.6.8.2.9.12.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.12.4  INTERRUPTS 


None. 


3.6.8.2.9.12.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

wi  th  General_Vec tor_Mat r ix_Algebra ; 

•  •  • 

type  Mylndices  is  (a,  b,  c); 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 

type  My'ElementslSquarsd  is  new  My_Elementsl ; 

type  My_Elements2  is  new  FLOAT; 

type  My  Elements2_Squared  is  new  My_Elements2; 

type  Scalars  is  new  FLOAT; 

•  •  • 

function  (Left  :  My_Elementsl , 

Right  :  My_Elementsl)  return  My_Elementsl_Squared; 
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function 


(Left 

Right 


My_Elements2, 

My_Elements2)  return  My_Elements2_Squared; 


function  (Left 
Right 


My_Elements2, 

Scalars)  return  My_Elementsl ; 


function  "/" 


(Left 

Right 


My_Elementsl, 

Scalars)  return  My_Elements2; 


function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl; 
function  Sqrt  (Input  !  My~Elements2_Squared)  return  My~Elements2; 


package  V_0pnsl  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Cons  trained 
(VectorJBlements  ->  My_Elementsl , 

Vector_Elements_Squared  «>  My_Elementsl_Squared, 

Indices  ->  My_Indices); 

use  V_Opnsl; 


subtype  Vectorsl  is  V_Opnsl. Vectors; 


package  V_0pns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Constrained 
(Vector_Elements  ~  ->  My_Elements2, 

Vector_Elements_Squared  ■>  My_Elements2_Squared, 

Indices  «>  My_Indices) • 

use  V_0pns2; 


subtype  Vectors2  is  V_0pns2. Vectors; 

»  •  • 

package  V_S_Opns  is  new 

General_Vector_Matrix  Algebra. Vector_Scalar_Operations 


(Elementsl  ■> 
Element s2  «> 
Indices  ■> 
Vectorsl  => 
Vectors2  «> 
Scalars  *> 
use  V_S_Opns; 


My_Elementsl, 

My_Elements2, 

My_Indices, 

Vectorsl, 

Vectors2, 

Scalars); 


Vectorl  :  Vectorsl; 

Vector2  :  Vectors2; 

Gain  :  Scalars; 

•  •  • 

begin 

Vectorl  :*  Vector2  *  Gain; 


3.6.8.2.9.12.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.8.2.9.12.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description 

1 

|  function 

Multiplies  each  element  of  a 

! 

1 

vector  by  a  scalar  value 

1 

1 

c(i)  -  a(i)  *  b 

! 

1 

II  /II 

|  function 

Divides  each  element  of  a  vector 

1 

1 

by  a  scalar  value 

1 

c(i)  -  a(i)  /  b 

1 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  P523-0  | 

|  "/" 

|  P524-0  i 

3.6.8.2.9.12.8  PART  DESIGN 
None. 


3.6.8.2.9.13  MATRIX_SCALAR_OPERATIONS_UNCONSTRAINED  (CATALOG  #P180-0) 

This  package  provides  a  set  of  functions  which  will  scale  a  matrix  by 
multiplying  or  dividing  each  element  of  the  matrix  by  a  scale  factor. 


3.6.8.2.9.13.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


1 

|  Requirements  | 

|  Name 

|  Allocation  1 

|  "*» 

|  R073  | 

|  "/" 

|  R074  | 

3.6.8.2.9.13.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  types: 
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The  folloving  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description  | 

Elementsl 

floating 

Type  of  elements  in  an  array 

point  type 

Elements2 

floating 

Type  of  elements  in  an  array 

point  type 

Scalars 

floating 

Data  type  of  objects  to  be  used  as 

point  type 

multipliers  and  divisors 

Col 

discrete 

Used  to  dimension  second  dimension  of 

InHicesl 

type 

Matricesl 

Rov 

discrete 

Used  to  dimension  first  dimension  of 

InHicesl 

type 

Matricesl 

Col 

discrete 

Used  to  dimension  second  dimension  of 

InHices2 

type 

Matrices2 

Rov 

discrete 

Used  to  dimension  first  dimension  of 

InHices2 

type 

Matrices2 

Matricesl 

array 

Tvo  dimensional  matrix  vith  elements 

of  type  Elementsl 

Matrices2 

array 

Tvo  dimensional  matrix  vith  elements 

of  type  Elements2 

Subprograms : 

The  folloving  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|  "*« 

|  function 

|  Function  to  define  the  operation 

1 

1 

j  Elementsl  *  Scalars  :-  Elements2 

|  "/" 

j  function 

j  Function  to  define  the  operation 

! 

1 

|  Elements2  /  Scalars  :*  Elementsl 

3.6.8.2.9.13.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.13.4  INTERRUPTS 


None. 


3.6.8.2.9.13.5  TIMING  AND  SEQUENCING 

The  folloving  shovs  a  sample  usage  of  this  part: 

vith  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  nev  FLOAT; 
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type  My  Elements2  is  new  FLOAT; 
type  Scalars  is  new  FLOAT; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_Rov_Indices  is  (x,  y,  z); 

function  (Left  :  My_Elementsl ; 

Right  :  Scalars)  return  My_Elements2; 

•  •  • 

function  "/"  (Left  s  My_Elements2; 

Right  :  Scalars)  return  My_Elementsl; 


package  M_Opnsl  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Uncons trained 
(Col_Indices  =>  My_Col_Indices, 

Elements  =>  My_Elementsl, 

Row_Indices  ■>  My_Row_Indices) ; 

use  M_Opnsl; 

•  •  • 

subtype  Matricesl  is  M_Opnsl.Matrices(My_Rov_Indices,  My_Col_Indices) ; 


package  M_0pns2  is  new 

General  Vector_Matrix_Algebra.Matrix_Operations_Unconstrained 
(Col~Indices  «>  My_Col_Indices, 

•  Elements  ->  My~Elements2, 

Row_Indices  «=>  My_Row_Indices) ; 

use  M_Opns2; 

•  •  • 

subtype  Matrices2  is  M_0pns2.Matrices(My_Rov_Indices,  My_Col_Indices); 


package  M_S_Opns  is  new 

General  Vector_Matrix_Algebra. 

Matrix  Scalar  Operations  Unconstrained 


(Element si 
Elements2 
Scalars 


«>  My_Elementsl, 
=>  My_Elements2, 
=>  Scalars, 


Col_Indicesl  =>  My_Col_Indices, 
Col  Indices2  *>  My  Col~Indices, 


Row_Indicesl  => 
Row_Indices2  => 
Matricesl  => 
Matrices2  => 


use  M  S  Opns; 


My_Rov_Indices, 
My_Row_Indices, 
Malricisl, 
Matrices2); 


Matrixl  :  Matricesl; 

Matrix2  :  Matrices2; 

Gain  :  Scalars; 

•  •  • 
begin 
•  •  • 

Matrix2  :=  Matrixl  *  Gain; 
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3.6.8.2.9.13.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.13.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

Description 

1 

function 

Multiplies  each  element  of  an 

1 

m  x  n  matrix  by  a  scalar  value 
c(i)  =  a(i)  *  b 

1 

1 

tf  /  tt 

function 

Divides  each  element  of  an  m  x  n 

1 

matrix  by  a  scalar  value 
c(i)  -  a(i)  /  b 

1 

1 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  »*» 

|  P525-0  | 

|  "/" 

|  P526-0  | 

3.6.8.2.9.13.8  PART  DESIGN 


None. 


3.6.8.2.9.14  MATRIX_SCALAR_OPERATIONS_CONSTRAINED  (CATALOG  #P181-0) 

This  package  provides  a  set  of  functions  which  will  scale  a  matrix  by 
multiplying  or  dividing  each  element  of  the  matrix  by  a  scale  factor. 


3.6.8.2.9.14.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


1 

|  Requirements  | 

|  Name 

j  Allocation  | 

|  »*» 

|  R073  | 

|  "/" 

|  R074  | 
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3.6.8.2.9.14.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


1 

Name 

Type 

Description 

1 

1 

Elementsl 

floating 

Type  of  elements  in  an  array 

1 

1 

point  type 

1 

1 

Elements2 

floating 

Type  of  elements  in  an  array 

1 

1 

point  type 

1 

1 

Scalars 

floating 

Data  type  of  objects  to  be  used  as 

1 

point  type 

multipliers  and  divisors 

1 

1 

Col 

discrete 

Used  to  dimension  second  dimension  of 

1 

1 

InHices 

type 

Matricesx 

1 

1 

Row 

discrete 

Used  to  dimension  first  dimension  of 

1 

1 

Indices 

type 

Matricesx 

1 

1 

Matricesl 

array 

Two  dimensional  matrix  with  elements 

1 

1 

of  type  Elementsl 

1 

1 

Matrices2 

array 

Two  dimensional  matrix  with  elements 

1 

1 

. 

of  type  Elements2 

1 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|  «*» 

|  function 

|  Function  to  define  the  operation  | 

1 

i  Elementsl  *  Scalars  :  =  Elements2  j 

|  "/" 

|  function 

|  Function  to  define  the  operation  j 

1 

1 

|  Element s2  /  Scalars  :»  Elementsl  j 

3.6.8.2.9.14.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.14.4  INTERRUPTS 
None. 


3.6.8.2.9.14.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 
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type  My_Elementsl  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 
type  Scalars  is  new  FLOAT; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_Row_Indices  is  (x,  y,  z); 

•  at 

function  (Left  s  My_Elementsl ; 

Right  :  Scalars)  return  My_Elements2; 

•  •  • 

function  "/"  (Left  :  My_Elements2; 

Right  :  Scalars)  return  My_Elementsl; 


package  M_Opnsl  is  new 

General_Vector_Matrix  Algebra. Matrix_Operations  Constrained 
(Col_Indices  *>  My~Col_Indices, 

Elements  *>  My~Eleientsl, 

Row_Indices  =>  My_Row_Indices) ; 

use  M_Opnsl; 

•  •  • 

subtype  Matricesl  is  MOpnsl. Matrices; 


package  M_Opns2  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Constrained 
(Col~Indices  ->  My_Col_Indices, 

Elements  ■>  My_Elements2, 

Row_Indices‘ ■>  My_Row_Indices); 

use  M_Opns2 ; 


subtype  Matrices2  is  M_0pns2. Matrices; 


package  M_S_Opns  is  new 

General  Vector_Matrix_Algebra. 

Matrix  Scalar  Operations  Constrained 


(Elementsl 
Elements2 
Scalars 
Col_Indices 
Row_Indices 
Matricesl 
Matrices2 


My_Elementsl , 
My~Elements2, 
Scalars , 
My_Col_Indices, 
My_Row_Indices, 
Matricesl, 


use  MSOpns; 


=> 

=) 

•  > 

•=>  Matrices2); 


Matrixl  :  Matricesl; 
Matrix2  :  Matrices2; 
Gain  :  Scalars; 

•  •  • 

begin 


Matrix2  :=  Matrixl  *  Gain; 
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3.6.8.2.9.14.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.14.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description  | 


1 

|  function 

1 

Multiplies  each  element  of  an 

1 

1 

1 

1 

m  x  n  matrix  by  a  scalar  value 

1 

I 

1 

1 

c(i)  =  a(i)  *  b 

1 

|  "/" 

|  function 

1 

Divides  each  element  of  an  m  x  n 

1 

1 

i 

1 

matrix  by  a  scalar  value 

1 

1 

1 

I 

c(i)  =  a(i)  !  b 

1 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  «*" 

|  P527-0  ( 

|  "/" 

|  P528-0  | 

3.6.8.2.9.14.8  PART  DESIGN 


None. 


3.6.8.2.9.15  DIAGONAL_MATRIX_SCALAR_OPERATIONS  (CATALOG  #P182-0) 

This  package  provides  the  functions  to  allow  the  user  to  multiply  or  divide 
each  element  of  a  diagonal  matrix  by  a  scalar. 

This  package  has  been  designed  to  be  instantiated  by  the  diagonal  matrix  type 
exported  by  the  Diagonal_Matrix  Operations  package.  However,  a  similarly 
defined  diagonal  matrix,  define?  by  the  user,  may  also  be  used  to  instantiated 
this  package. 

The  following  exceptions  are  raised  by  this  part: 


|  Name 

When/Why  Raised  | 

|  Dimension  Error 

1 

Raised  if  the  lengths  of  the  two  imported  vector  types 
are  not  of  the  same  length  j 
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3.6.8.2.9.15.1  REQUIREMENTS  ALLOCATION 


This  part  meets  CAMP  requirement  R212. 


3.6.8.2.9.15.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description  | 

Elements 1 

Elements2 

Scalars 

Diagonal_Rangel 
Diagonal JRange2 
DiagonalMatricesl 
Di  agonalMa  t  r  i  ces  2 

floating 
point  type 
floating 
point  type 
floating 
point  type 
integer  type 
integer  type 
array 
array 

|  Type  of  elements  in  Diagonal_Matricesl 

|  Type  of  elements  in  Diagonal_Matrices2 

j  Data  type  of  scale  factor 

1 

|  Used  to  dimension  Diagonal  Matricesl 
j  Used  to  dimension  Diagonal_Matrices2 
j  An  array  of  Elementsl 
|  An  array  of  Elements2 

Subprograms : 

* 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 

|  Name  |  Type  | 

Description 

1 

|  function  | 

1  1 

"/"  |  function  j 

1  1 

Multiplication  operator  defining  the  operation: 

Elementsl  *  Scalars  =  Elements2 

Division  operator  defining  the  operation: 

Elements2  /  Scalars  -  Elementsl 

3.6.8.2.9.15.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.15.4  INTERRUPTS 


None. 
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3.6.8.2.9.15.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  thi  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_P.ow_Indices  is  (x,  y,  z); 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

function  (Left  :  My_Elementsl; 

Right  :  My_Elementsl)  return  My_Elementsl_Squared; 

function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl; 
•  •  • 

function  (Left  :  My_Elements2; 

Right  :  My_Elements2)  return  My_Elements2_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elements2_Squared)  return  My_Elements2; 

•  •  e 

package  VOpns  XYZ1  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Elements  -  ->  My_Elementsl, 

Vector_Elements_Squared  ->  My_Elementsl_Squared, 
Indices  ~  *>  My_Row_Indices) ; 

use  V_Opns_XYZl; 

•  •  • 

subtype  Vectors_XYZl  is  V_Opns_XYZl.Vectors(My_Row_Indices) ; 

•  •  • 

package  V_Opns  XYZ2  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Elements  «>  My_Elements2, 

Vector_Elements_Squared  =>  My~Elements2_Squared, 
Indices  =>  My~Row_Indices) ; 

use  V_0pns_XYZ2 ; 

•  •  • 

subtype  Vectors_XYZ2  is  V_0pns_XYZ2.Vectors(My_Row_Indices); 

•  •  • 

package  V_Opns  ABC1  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Elements  =>  My_Elimentsl, 

Vector~Elements_Squared  =>  My~Elementsl_Squared, 
Indices  =>  My_Col_Indices); 

use  V_Opns_ABCl; 

•  •  • 

subtype  Vectors_ABCl  is  V_Opns_ABCl.Vectors(My_Col  Indices); 

package  V_0pns  ABC2  is  new 

GeneraI_Vector_Matrix_Algebra.Vector_Operations 
(Vector_Elements  ~  =>  My_Elements2, 

Vector~Elements_Squared  =>  My_Elements2_Squared, 
Indices  =>  My_Col_Indices) ; 
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use  V_0pns_ABC2; 

•  i  « 

subtype  Vectors_ABC2  is  V_0pns_ABC2.Vectors(My_Col_Indices); 

•  •  • 

package  Diagonal_M_Opnsl  is  new 

General_Vector_Matrix_Algebra. 
Diagonal_Matrix_Operations 


(Elements  => 

Col_Indices  *> 

Row_Indices  => 

Col_Slices  *> 

Row^Slices  => 

use  Diagonal  M  Opnsl; 


My_Elementsl , 
My_Col_Indices, 
My  Row  Indices, 
VectorsJCYZl, 
Vectors  ABC1); 


package  Diagonal_M_0pns2  is  new 

General_Vector_Matrix_Algebra. 
D i agona l_Ma t r i x_0  pir a  t i on  s 


(Elements  => 

Col_Indices  -> 

Row_Indices  *> 

Col_Slices  *> 

Row_Slices  »> 

use  Diagonal_M_0pns2; 


My_Elements2 , 
My_Col_Indices, 
My_Rov-Indices, 
Vectors_XYZ2, 
Vectors  ABC2); 


package  D_S_Opns  is  new 

General_Vector_Matr ix_Algebra . 

Diagonal_Matrix_Scalar_Operations 


(Elementsl 
Elements2 
Scalars 

Diagonal_Rangel 


Diagonal_Range2 


use  D_S  Opns; 
•  •  • 

DiagMatrixl 
Diag_Matrix2 
Scale_Factor 
•  •  • 
begin 


»>  My_Elementsl, 

■>  My_Elements2, 

«>  My_Elements3, 

■>  Diagonal_M  Opnsl. 

DiagonaI_Range , 

■>  Diagonal_M  0pns2. 
DiagonaI_Range, 
Diagonal_Matricesl  =>  Diagonal_M  Opnsl. 

DiagonaI_Matrices, 

Diagonal_Matrices2  =>  DiagonalM  0pns2. 

DiagonaI_Matrices) ; 


Diagonal_M_Opnsl.Diagonal_Matrices; 
Diagonal_M_0pns2 . Diagonal_Ma  trices; 
My  Elements3; 


Diag_Matrix2  :=  Diag_Matrixl  *  Scale_Factor ; 


3.6.8.2.9.15.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.8.2.9.15.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description  | 


1 

1 

function 

1 

Multiplies  each  element  of  a  diagonal  matrix  by  a 

1 

1 

1 

scalar  value 

1 

1 

1 

a(i)  *  b(i)  *  c 

1  "/" 

1 

function 

1 

Divides  each  element  of  a  diagonal  matrix  by  a  scalar 

1 

1 

1 

value 

I 

1 

1 

a(i)  *  b(i)  /  c 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  P529-0  | 

M  /t! 

|  P530-0  ( 

3.6.8.2.9.15.8  PART  DESIGN 
None. 


3.6.8.2.9.16  MATRIX_VECTOR_MULTIPLY_UNRESTRICTED  (CATALOG  IP183-0) 

This  package  contains  a  function  which  multiplies  an  m  x  n  matrix  by  an  n  x  1 
vector  producing  an  m  x  1  vector.  If  the  length  of  the  second  dimension  of  the 
matrix  is  not  the  same  as  the  length  of  the  input  vector,  a  DIMENSION_ERROR 
exception  is  raised.  None  of  the  ranges  need  to  be  the  same. 

* 

The  function  in  this  package  can  be  made  to  handle  sparse  matrices  and/or 
vectors  by  tailoring  the  imported  and  functions  (see  sections 
describing  generic  formal  subprograms  and  calling  sequence). 

The  following  exceptions  are  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Dimension  Error 

i  1 

|  Raised  if  the  length  of  the  second  dimension  of  the  | 

j  input  matrix  is  not  the  same  as  the  length  of  the  vector j 

3.6.8.2.9.16.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R069. 
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3.6.8.2.9.16.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

Description  | 

Matrix  Elements 

|  floating 

Type  of  elements  in  the  input  matrix 

Input  Vector  Elements 

|  point  type 
|  floating 

Type  of  elements  in  the  input  vector 

Output  Vector  Elements 

j  point  type 
j  floating 

Type  of  elements  in  the  output 

j  point  type 

vector 

Col  Indices 

j  discrete 

Used  to  dimension  second  dimension 

1  type 

of  input  matrix 

Row  Indices 

|  discrete 

Used  to  dimension  first  dimension 

1  type 

of  input  matrix 

Input  Vector  Indices 

|  discrete 

Used  to  dimension  input  vector 

Output  Vector  Indices 

j  discrete 

Used  to  dimension  output  vector 

Input  Matrices 

1  array 

Data  type  of  input  matrix 

Input  Vectors 

|  array 

Data  type  of  input  vector 

OutputVectors 

j  array 

Data  type  of  output  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

|  Description  | 

|  function 

1 

|  Function  defining  the  operation 
j  Matrix_Elements  *  Input_Vector_Elements 

Output  Vector  Elements- 

M  +  M 

|  function 

1 

1 

1 

j  Function  defining  the  operation 
j  Output_Vector_Elements  + 
j  Output_Vector_Elements  := 

j  Output_Vector_Elements 

3.6.8.2.9.16.3  LOCAL  ENTITIES 


None. 
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3.6.8.2.9.16.4  INTERRUPTS 


None. 


3.6.8.2.9.16.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part  where  neither  the  input 
matrix  or  vector  are  sparse: 


with  General  Vector_Matrix_Algebra; 


type  MyElementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 

type  My_Elements3  is  new  FLOAT; 

type  My  Elements3_Squared  is  new  My_Elements3; 


type  My_Col_Indices  is  (a,  b,  c); 
type  My_Row  Indices  is  (x,  y,  z); 
type  My_IndTces  is  (i,  j,  k); 


•  •  • 

function  (Left 
Right 


:  My_Elementsl, 

:  My_Elements2)  return  My_Elements3; 


function  (Left 

Right 

function  (Left 

Right 


:  My  Elements2, 

:  My_Elements2)  return  My_Elements2_Squared; 
:  My_Elements3, 

:  My_Elements3)  return  My_Elements3_Squared; 


function  Sqrt  (Input  :  My_Elements2  Squared)  return  My_Elements2; 
function  Sqrt  (Input  :  My_Elements-_Squared)  return  My_Elements3; 


package  M_Opnsl  is  new 

General_Vec  t or_Ma t  r ix_Algebr a . Ma  t  r i x_0pera  t i ons_Uncons  t  rained 
(Col_Indices  =>  My~Col_ Indices,  , 

Elements  =>  MyJSlementsl, 

Row_Indices  *>  My_Row_Indices) ; 

use  M_0pnsl; 


subtype  Matricesl  is  M_Opnsl.Matrices(My_Row_Indices,  My_Col_Indices) ; 
•  •  • 

package  V_0pns2  is  new 

General_Vector_Matrix_Algebra. Vector_Operations_Uncons trained 
(Vector_Elements  =>  My_Elements2, 

Vector  Elements_Squared  =>  My~Elements2_Squared, 

Indices  =>  My_Indices); 

use  V_0pns2; 


subtype  Vectors2  is  V_0pns2.Vectors(My_Indices) ; 
package  V_0pns3  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons trained 
(Vector_Elements  =>  My_Elements3, 

Vector_Elements_Squared  =>  My~Elements3_Squared, 

Indices  »>  My_Indices); 
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use  V_0pns3; 

•  •  • 

subtype  Vectors3  is  V_0pns3.Vectors(My_Indices) ; 


function  is  new 

General  Vector_Matrix  Algebra. 

MatrIx_Vector_MultIply_Unres trie  ted 


(Matrix_Elements  => 
Input_Vector  Elements  => 
Output  Vector_Elements  => 
Col_In3ices  => 
Input_Vector_Indices  => 
Output  Vector_Indices  => 
Row_In3ices  => 
Input_Matrices  *> 
Input_Vectors  => 
Output  Vectors  => 


My_Elementsl , 

My~Elements2, 

My_Elements3, 

My_Col  Indices, 

My_IndTces, 

My_Indices, 

My~Row_Indices, 

Matricesl, 

Vectors2, 

Vectors3) ; 


Matrixl  :  Matricesl; 

Vector2  :  Vectors2; 

Vector3  :  Vectors3; 

•  •  • 

begin 
•  •  • 

Vector3  :*  Matrixl-  *  Vector2; 


The  following  shows  a  sample  usage  of  this  part  where  the  input 
matrix  is  sparse: 


with  GeneralVectorMatrixAlgebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_Row  Indices  is  (x,  y,  z); 
type  My~lndlces  is  (i,  j,  k); 

function  Sparse  Lef t_Multiply 

(Lelt  :~My_Elementsl; 

Right  :  My_Elements2)  return  My_Elements3; 

•  •  • 

function  Sparse  LeftAdd 

(Left  :  My_Elements3; 

Right  :  My_Elements3)  return  My_Elements3; 

•  ■  • 

function  (Left  :  My_Elements2 , 

Right  :  My_Elements2)  return  My_Elements2_Squared ; 

•  •  • 

function  (Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elements2_Squared)  return  My_Elements2; 
function  Sqrt  (Input  :  My_Elements3~Squared)  return  My_Elements3; 
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package  Sparse  M_Opnsl  is  new 

GeneraI_Ve c t o r_Ma t r i x_A lge b r a . 

Dynamically  Sparse_Matrix_Operations_Uncons trained 
(Col  Indices  ■>  My  Col~Indices, 

Eleients  =>  My~Elementsl, 

Rov_Indices  *>  My~Row_Indices) ; 
use  Sparse_M_Opnsl; 


subtype  SpMatricesl  is  Sparse_M_Opnsl. 

Matricis(My_Rov_Indices,  My_Col_Indices) ; 

•  •  • 

package  V_0pns2  is  new 

Gineral_Vector  Matrix  Algebra. Vector  Operations_Unconstrained 
(Vector_Elements  =>  My_Elements2, 

Vector_Elements_Squared  =>  My_Elements2_Squared, 

Indices  *>  My_Indices) 

use  V_0pns2; 


subtype  Vectors2  is  V_0pns2.Vectors(My_Indices) ; 


package  V_0pns3  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Unconstrained 
(Vector_Elements  ~  •>  My_Elements3, 

Vecto^Elements^  Squared  ->  My_Elements3_Squared, 

Indices  "  ->  My_Indices) 

use  V_0pns3; 

•  •  • 

subtype  Vectors3  is  V_0pns3.Vectors(My_Indices) ; 


package  M_V_Mult  is  new 

General  Vector_Matrix  Algebra. 

Matrix  Vector  Multiply  Unrestricted 


(Matrix_Elements  => 
Input_Vector_Elements  *> 
Output  Vector_Elements  => 
Col_In3ices  ■> 
Input_Vector_Indices  => 
Output  Vector_Indices  «> 
Rov_In3ices  «=> 
Input_Matrices  *> 
Input_Vectors  => 
Output  Vectors  ■> 
*'**•  ~  => 
"+"  => 


use  M  V  Mult; 


My_Elementsl, 

My~Elements2, 

My_Elements3, 

My~Col  Indices, 

My~lndlces, 

My_Indices, 

My~Row_Indices, 

Sp_Matricesl, 

Vectors2, 

Vectors3, 

Sparse_Lef t_Multiply, 
Sparse  Left  Add); 


Sp_Matrixl  :  Sp_Matricesl; 

Vector2  :  Vectors2; 

Vector3  :  Vectors3; 

•  *  • 

function  Sparse  Lef t_Multiply 

(Lelt  :  My_Elementsl; 

Right  :  My  Elements2)  return  My_Elements3  is 
Answer  s  My_Elements3; 
begin 

if  Left  =  0.0  then 
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Ansver  My_Elements3(Right); 
else 

Ansver  My_Elements3(Lef t  *  My_Elementsl (Right)); 
end  if; 
return  Answer; 
end  Sparse_Lef tMultiply; 

•  •  • 

function  Sparse  Left_Add 

(Lelt  :  My_Elements3; 

Right  :  My  Elements3)  return  My_Elements3  is 
Ansver  :  My_Elements3; 
begin 

if  Left  *  0.0  then 
Ansver  :■  Right; 
else 

Ansver  Left  +  Right; 
end  if; 

return  Ansver; 
end  Sparse_Left_Add; 

•  •  • 
begin 
•  •  • 

Vector3  :*  Sp_Matrixl  *  Vector2; 


3.6.8.2.9.16.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.16.7  DECOMPOSITION 

The  folloving  table  describes  the  decomposition  of  this  part: 


|  Name 

I  Type 

Description  | 

|  »*" 

1 

1 

|  function 

1 

1 

Multiplies  an  m  x  n  matrix  by  an  n  x  1  vector,  | 

returning  the  resultant  m  x  1  vector  j 

c(i)  :«  a(i,j)  *  b(j)  | 

The  folloving  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  j 

|  »*»' 

|  P531-0  | 

3.6.8.2.9.16.8  PART  DESIGN 


None. 
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3.6.8.2.9.17  MATRIX_VECTOR_MULTIPLY_RESTRICTED  (CATALOG  #P184-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  1  vector  producing  an  it  x  1 
vector . 

The  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by  tailoring 
the  imported  "t"  and  functions  (see  sections  describing  generic  formal 

subprograms  and  calling  sequence). 


3.6.8.2.9.17.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R069. 


3.6.8.2.9.17.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

1 

Description  | 

Matrix  Elements 

floating 

1 

Type  of  elements  in  the  input  matrix 

point  type 

1 

Input  Vector  Elements 

floating 

1 

Type  of  elements  in  the  input  vector 

Output  Vector  Elements 

point  type 
floating 

1 

1 

Type  of  elements  in  the  output 

point  type 

1 

vector 

Indicesl 

discrete 

1 

Used  to  dimension  first  dimension 

type 

1 

of  input  matrix  and  to  dimension 

Indices2 

discrete 

1 

1 

the  output  vector 

Used  to  dimension  second  dimension 

type 

1 

of  input  matrix  and  to  dimension 

Input  Matrices 

array 

1 

1 

the  input  vector 

Data  type  of  input  matrix 

Input  Vectors 

array 

1 

Data  type  of  input  vector 

Output_Vectors 

array 

1 

Data  type  of  output  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 
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|  Name 

Type 

Description  | 

function 

Function  defining  the  operation 

Matrix_Elements  *  Input_Vector_Elements  := 

Output  Vector  Elements- 

«  +  tf 

function 

Function  defining  the  operation 
Output_Vector_Elements  + 

Output  Vector  Elements  := 

Output  Vector  Elements 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type  | 

Mode 

|  Description  | 

|  Matrix  | 

Input  Matrices  j 

In 

|  M  x  N  input  matrix  | 

j  Vector  j 

Input  Vectors  j 

In 

j  N-element  vector  j 

3. 6. 8. 2. 9. 

17.3  INTERRUPTS 

None. 


3.6.8.2.9.17.4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part  where  neither  the  input 
matrix  or  vector  are  sparse: 


wi  th  General_Vec  torMatr ix_Algebra ; 


type  My_Elementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3-  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 


type  My_Indicesl  is  (x,  y,  z); 
type  My_Indices2  is  (a,  b,  c); 


function  (Left 
Right 


My_Elementsl, 

My2Elements2)  return  My_Elements3; 


function  (Left 
Right 


My_Elements2, 

My_Elements2)  return  My_Elements2_Squared; 


function  (Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elements2_Squared)  return  My_Elements2; 
function  Sqrt  (Input  :  My~Elements3~Squared)  return  My~Elements3; 


r') 
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package  M_0pnsl  is  new 

General_Vector_Matrix_Algebra.  Mat  rix_Operations_Cons  trained 
(Col~Indices  «>  My_Indices2, 

Elements  =>  My_Elementsl, 

Row_Indices  =>  My_Indicesl) ; 

use  M_0pnsl; 

•  •  • 

subtype  Matricesl  is  M_0pnsl. Matrices; 
package  V_0pns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Constrained 
(Vector  Elements  =>  My_Elements2, 

Vector_Elements_Squared  =>  My_Elements2_Squared, 

Indices  =>  My_Indicesl)7 

use  V_0pns2; 

subtype  Vectors2  is  V_0pns2. Vectors; 


package  V_0pns3  is  new 

General_Vector_Matrix_Algebra.Vector_Operations  Constrained 
(Vector_Elements  *>  My_Elements3, 

Vector_Elements_Squared  =>  My  J21ements3_Squared, 

Indices  *>  My_Indices2); 

use  V_Opns3; 

•  •  • 

subtype  Vectors3  is  V_0pns3. Vectors; 


function  "*"  is  new 

General  VectorMatrix  Algebra. 

Ma  t  rTx_Vec  t  or_Mul  tTply_Cons  t  ra  i  ned 


(Matrix  Elements 
Inpu  t_Vec  t or_Elemen  t  s 
Output_Vector_Elements 
Indiceil 
Indices2 
InputMatrices 
InputVectors 
Output_Vectors 

Matrixl  :  Matricesl; 

Vector2  :  Vectors2; 

Vector3  :  Vectors3; 

•  *  * 
begin 
•  •  • 

Vector3  :=  Matrixl  *  Vector2; 


MyJBlementsl, 
My_Elements2, 
My_Elements3, 
My_Indicesl, 
My_Indices2, 
Matricesl, 
Vectors2, 


«> 

-> 

■=> 

=> 

=> 

=> 

=>  Vectors3); 


The  following  shows  a  sample  usage  of  this  part  where  the  input 
matrix  is  sparse: 


with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

type  My  Elements3_Squared  is  new  My_Elements3; 


( 
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type  My_Indicesl  is  (x,  yf  z); 
type  My_Indices2  is  (a,  b,  c); 

•  •  • 

function  Sparse  Lef t_Multiply 

(Lelt  :-My_Elementsl ; 

Right  :  My_Elements2)  return  My_Elements3j 

function  Sparse  Left_Add 

(Lelt  :  My_Elements3; 

Right  :  My~Elements3)  return  My_Elements3; 

*  •  • 

function  (Left  :  My_Elements2, 

Right  :  My_Elements2)  return  My_Elements2_Squared; 

•  *  • 

function  (Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elements2_Squared)  return  My_Elements2; 
function  Sqrt  (Input  :  My_Elements3_Squared)  return  My_Elements3; 

package  Sparse  M_Opnsl  is  new 

GeneraI_Vector_Matrix_Algebra. 

Dynamically  Sparse_Matrix  Operations_Cons trained 
(Col_IndTces  ->  My_lndlces2, 

Elements  «>  My~Elementsl, 

Rowlndices  ->  Mylndicesl); 
use  SparseMOpnsl; 

#  •  • 

subtype  Sp_Matricesl  is  Sparse_M_Opnsl. Matrices; 

•  •  • 

package  V_0pns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Constrained 
(VecIor_Elements  *>  My_Elements2, 

Vector_Elements_Squared  =>  My_Elements2_Squared, 

Indices  =>  My_Indicesl)i 

use  V_0pns2;  , 

•  •  • 

subtype  Vectors2  is  V_0pns2. Vectors; 

•  •  • 

package  V_0pns3  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Cons trained 
(Vector_Elements  =>  My_Elements3, 

Vector_Elements_Squared  =>  My_Elements3_Squared, 

Indices  =>  My_Indices2) ; 

use  V_0pns3; 

»  •  * 

subtype  Vectors3  is  V_0pns3.Vectors(My_Indices) ; 

•  •  • 

package  M_V_Mult  is  new 

General  Vector_Matrix_Algebra. 

Ma  t  r!x_Vec  tor_Mul t i ply_Res  t  r i c  t  ed 

(Matrix_Elements  =>  My_Elementsl, 

Input_Vector_Elements  =>  My~Elements2, 
OutpuI_Vector_Elements  =>  My~Elements3, 

Indicesl  =>  My_Indicesl, 

Indices2  =>  My  Indices2, 


CAMP  Software  Top  Level  Design  Document 


Page  505 


Input_Matrices 

Input_Vectors 

Output_Vectors 

l»  +  t» 

use  M  V  Mult; 


=>  Sp_Matricesl, 

=>  Vectors2, 

=>  Vectors3, 

=>  Sparse_Left_Multiply, 
=>  Sparse~Lef t~Add) ; 


Sp_Matrixl  :  Sp_Matricesl; 

Vector2  :  Vectors2; 

Vector3  :  Vectors3; 

•  •  • 

function  Sparse  Lef tMultiply 

(Lelt  :  My_Elementsl; 

Right  :  My-Elements2)  return  My_Elements3  is 
Answer  :  My_Elements3; 
begin 

if  Left  =  0.0  then 

Answer  My_Elements3(Right) ; 
else 

Answer  :«  My_Elements3(Lef t  *  MyElementsl (Right)) ; 
end  if; 

return  Answer; 
end  Sparse_Lef t_Multiply; 


function  Sparse  Left_Add 

(Left  s  My_Elements3; 

Right  s  My  Elements3)  return  My_Elements3  is 
Answer  :  MyElementsl; 
begin 

if  Left  -  0.0  then 
Answer  Right; 

else 

Answer  Left  +  Right; 

end  if; 

return  Answer; 
end  Sparse_Lef t_Add; 


begin 

Vector3  :«  Sp_Matrixl  *  Vector2; 


3.6.8.2.9.17.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.17.6  DECOMPOSITION 


None. 


3.6.8.2.9.18  VECTOR_MATRI X_MULTI PLY_UNRESTRICTED  (CATALOG  #P185-0) 

This  package  contains  a  function  which  multiplies  a  1  x  m  vector  by  an  m  x  n 
matrix  producing  a  1  x  n  vector.  If  the  length  of  the  vector  is  not  the  same 
as  the  length  of  the  first  dimension  of  the  matrix  a  DIMENSION_ERROR  exception 
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is  raised.  None  of  the  ranges  need  to  be  the  same. 

The  function  in  this  package  can  be  made  to  handle  sparse  matrices  and/or 
vectors  by  tailoring  the  imported  "+"  and  functions  (see  sections 
describing  generic  formal  subprograms  and  calling  sequence). 

The  following  exceptions  are  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised  | 

|  Dimension_Error  |  Raised  if  the  length  of  the  vector  is  not  the  same  as  | 
I  ~  j  the  length  of  the  first  dimension  of  the  input  matrix  j 


3.6.8.2.9.18.1  REQUIREMENTS  ALLOCATION 


N/A. 

3.6.8.2.9.18.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 


Type 


Description 


|  Input_Vector_Elements 

|  floating 
j  point  type 

1 

I 

Type  of  elements  in  the  input  vector 

j  Matrix_Elements 

j  floating 
j  point  type 

1 

1 

Type  of  elements  in  the  input  matrix 

j  Output  Vector_Elements 

j  floating 

Type  of  elements  in  tfye  output 

j  point  type 

1 

vector 

j  Col_Indices 

|  discrete 

1 

Used  to  dimension  second  dimension 

'  type 

1 

of  input  matrix 

j  Row_Indices 

j  discrete 

1 

Used  to  dimension  first  dimension 

1  type 

1 

of  input  matrix 

j  Input_Vector_Indices 

|  discrete 

Used  to  dimension  input  vector 

j  Output_Vector_Indices 

j  discrete 

1 

Used  to  dimension  output  vector 

j  Input_Matrices 

j  array 

1 

Data  type  of  input  matrix 

j  Input_Vectors 

j  array 

Data  type  of  input  vector 

j  Output_Vectors 

j  array 

1 

Data  type  of  output  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 
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|  Name 

!  Type 

|  Description  | 

«*ii 

|  function 

|  Function  defining  the  operation 

1 

j  Input  Vector  Elements  *  Matrix  Elements  := 

1 

Output  Vector  Elements 

»f  + W 

|  function 

j  Function  defining  the  operation 

1 

j  Output  Vector  Elements  + 

1 

j  Output  Vector  Elements  := 

1 

!  Output  Vector  Elements 

3.6.8.2.9.18.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.18.4  INTERRUPTS 
None. 


3.6.8.2.9.18.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part  where  neither  the  input 
matrix  or  vector  are  sparse: 


with  General_Vector_Matrix_Algebra; 

•  •  • 

type  MyElementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 

type  My_Elements3  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 


type  My_Col_Indices  is  (a,  b,  c); 
type  My_Row  Indices  is  (x,  y,  z); 
type  My_lndlces  is  (i,  j,  k); 


function  (Left 
Right 


My_Elementslf 

My_Elements2)  return  My_Elements3; 


function  (Left 
Right 


My_Elements2 , 

My_Elements2)  return  My_Elements2_Squared; 


function  (Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl ; 
function  Sqrt  (Input  :  My~Elements3~S9tiared)  return  My_Elements3; 


package  V_0pnsl  is  new 

Gineral_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector  Elements  ~  =>  My_Elementsl, 

Vector~Elements_Squared  =>  My_Elementsl_Squared, 

Indicei  =>  My_Indices); 
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use  V_0pnsl; 

•  •  « 

subtype  Vectorsl  is  V_Opnsl.Vectors(My_Indices) ; 

•  •  • 

package  M_0pns2  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Uncons  trained 
(Col_Indices  =>  My_Col_Indices, 

Elements  =>  My_Eleiiients2, 

Row_Indices  =>  My_Rov_Indices) ; 

use  M_0pns2; 

•  •  • 

subtype  Matrices2  is  M_Opns2.Matrices(My_Rov_Indices,  My_Col_Indices); 


package  V_0pns3  is  new 

General_Vector  Mat rix_Algebra. Vector_Operations_Uncons trained 
(Vector_Elements  =>  My_Elements3, 

Vector_Elements_Squared  *>  My~Elements3_Squared, 

Indices  «>  My~Indices) ;_ 

use  V_0pns3; 


subtype  Vectors3  is  V_0pns3.Vectors(My_Indices) ; 


function  is  new 

General_Vector  Matrix  Algebra. 

Vector  Matrix  Multiply  Unrestricted 


(MatrixElements  «> 
Input_Vector_Elements  *> 
Output  Vector_Elements  «> 
Col_In3ices  -> 
Input_Vector_Indices  *> 
Output  Vector_Indices  ■> 
Row_In3ices  ■> 
Input_Vectors  => 
Input_Matrices  ■=> 
Output_Vectors  *> 


My_Elements2, 

MyElementsl, 

My_Elements3, 

My_Col  Indices, 

My_lndlces , 

My~Indices, 

My_Row_Indices, 

Vectorsl, 

Matrices2, 

Vectors3) ; 


Vectorl  :  Vectorsl; 

Matrix2  :  Matrices2; 

Vector3  :  Vectors3; 

•  •  • 
begin 
•  •  • 

Vector3  s«  Vectorl  *  Matrix2; 


The  following  shows  a  sample  usage  of  this  part  where  the  input 
matrix  is  sparse: 


with  General_Vector_Matrix_Algebra; 


type  MyElementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2  Squared  is  new  My  Elements2; 

type  My_Elements3~  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My~Row_Indices  is  (x,  y,  z); 
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type  My_Indices  is  (i,  j,  k); 

function  Sparse  Lef t_Multiply 

(Lelt  :  My_Elementsl; 

Right  :  My~Elements2)  return  My_Elements3; 

•  •  • 

function  Sparse  Left_Add 

(LeTt  :  My_Elements3; 

Right  :  My~Elements3)  return  My_Elements3; 

•  •  • 

function  (Left  :  My_Elements2, 

Right  :  My~Elements2)  return  My  Elements2_Squared; 

function  "*"  (Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3_Squared; 

«  •  • 

function  Sqrt  (Input  s  My_Elementsl_Squared)  return  My_Elementsl; 
function  Sqrt  (Input  :  My_Elements3~Squared)  return  My_Elements3; 

package  V_Opnsl  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector_Elements  *>  My_Elementsl , 

Vector_Elements_Squared  *>  My~Elementsl_Squared, 

Indices  «>  My“lndices); 

use  V_0pnsl; 

•  •  • 

package  Sparse  M_Opns2  is  new 

GeneraI_Vector_Matrix_Algebra. 

Dynamically  Sparse_Matrix_Operations_Uncons trained 
(Col_IndTces  «>  My_Col_Indices, 

Elements  ->  My_Elements2, 

Row_Indices  ->  My_Row_Indices); 
use  Sparse_M_0pns2 ; 

subtype  Sp_Matrices2  is  Sparse_M_0pns2. 

MatricesTMy_Row_Indices,  My_Col_Indices) ; 

•  •  • 

package  V_0pns3  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector_Elements  *>  My_ElIments3, 

Vector_Elements_Squared  *>  My~Elements3_Squared, 

Indices  -  =>  My”lndices); 

use  V_0pns3; 

•  •  • 

subtype  Vectors3  is  V_0pns3.Vec tors (My_Ind ices) ; 

•  •  • 

package  V_M_Mult  is  new 

Geniral_Vector_Matrix  Algebra. 

Vector_Matrix_MultIply_Unres  trie  ted 

(Matrix_Elements  =>  My_Elements2, 

Input_Vector_Elements  =>  My~Elementsl, 

Output  Vector_Elements  =>  My_Elements3, 

Col_In3ices  =>  My_Col_Indices, 

Input_Vector_Indices  =>  My_Indices, 

Outpul  Vector_Indices  =>  My~Indices, 

Row_In3ices  =>  My_Row_Indices, 

Input_Vectors  =>  Vectorsl, 
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use  V  M  Mult; 


Input_Matrices 

Output_Vectors 

"*« 


«>  Sp_Matrices2, 

=>  Vectors3, 

*>  Sparse_Lef t_Multiply, 
=>  Sparse_Lef t_Add) ; 


Vectorl  s  Vectorsl; 

Sp_Matrix2  :  Sp_Matrices2; 

Vector3  :  Vectors3; 

function  Sparse  Lef t_Multiply 

(Lelt  :  My_Elementsl ; 

Right  :  My  Elements2)  return  My_Elements3  is 
Answer  :  My_Elements3; 
begin 

if  Left  -  0.0  then 

Answer  :«  My_Elements3(Right); 
else 

Answer  :«  My_Elements3(Lef t  *  My_Elementsl(Right)) ; 
end  if; 

return  Answer; 
end  Sparse_Lef t_Multiply; 

•  •  • 

function  Sparse  Left_Add 

(LeTt  s  My_Elements3; 

Right  :  My  Elements3)  return  My_Elements3  is 
Answer  :  MyElementsl; 
begin 

if  Left  «  0.0  then 
Answer  :«  Right; 
else 

Ansver  Left  +  Right; 
end  if; 

return  Answer; 
end  Sparse_Lef t_Add; 


begin 

Vector3  :*  Vectorl  *  Sp_Matrix2; 


3.6.8.2.9.18.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.18.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description  | 

| 

1 

1 

|  function 

1 

1 

Multiplies  a  1  x  m  vector  by  an  m  x  n  matrix,  1 

returning  the  resultant  1  x  n  vector  , 

c(j)  :=  a(i)  *  b(i, j)  | 
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The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

| 

|  P1052-0  | 

3.6.8.2.9.18.8  PART  DESIGN 


None. 


3.6.8.2.9.19  VECTOR_MATRI X_MULTI PL Y_RE STRI CTED  (CATALOG  #P186-0) 

This  package  contains  a  function  which  multiplies  a  1  x  m  vector  by  an  m  x  n 
matrix  producing  a  1  x  n  vector. 

The  calculations  performed  are  as  follows: 
c(j)  :*  a(i)  *  b(i, j) 

The  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by  tailoring 
the  imported  and  functions  (see  sections  describing  generic  formal 
subprograms  and  calling  sequence). 


3.6.8.2.9.19.1  REQUIREMENTS  ALLOCATION 
N/A. 

3.6.8.2.9.19.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

1 

Description  | 

Matrix  Elements 

floating 

1 

Type  of  elements  in  the  input  matrix 

Input  Vector  Elements 

point  type 
floating 

1 

Type  of  elements  in  the  input  vector 

Output  Vector  Elements 

point  type 
floating 

1 

1 

Type  of  elements  in  the  output 

point  type 

1 

vector 

Indicesl 

discrete 

1 

Used  to  dimension  first  dimension 

type 

1 

of  input  matrix  and  to  dimension 

Indices2 

discrete 

1 

1 

the  output  vector 

Used  to  dimension  second  dimension 

type 

1 

of  input  matrix  and  to  dimension 

Input  Matrices 

array 

1 

1 

the  input  vector 

Data  type  of  input  matrix 

Input  Vectors 

array 

1 

Data  type  of  input  vector 

Output_Vectors 

array 

1 

Data  type  of  output  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  This  function  can  be  made  to  handle  sparse  matrices  and/or  vectors  by 
tailoring  the  imported  functions  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

Description  | 

«  +  H 

|  function 

1 

|  function 

1 

I 

1 

Function  defining  the  operation 
Input_Vector_Elements  *  Matrix_Elements 
Output_Vector_Elements 

Function_def ining  the  operation 
Output_Vector_Elements  + 

Output_Vector_Elements  := 

Output_Vector  Elements 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 

|  Name 

Type  j 

Mode  |  Description  | 

|  Vector 
j  Matrix 

Input_Vectors 

Input~Matrices 

In  |  M-element  vector  | 

In  j  M  x  N  input  matrix  | 

3.6.8.2.9.19.3  INTERRUPTS 


None. 
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3.6.8.2.9.19.4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part  where  neither  the  input 
matrix  or  vector  are  sparse: 


with  GeneralVector  Matrix  Algebra; 


type  My_Elementsl  is  new  FLOAT; 

type  My~Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

type  My~Elements3_Squared  is  new  My_Elements3; 


type  My_Indicesl  is  (x,  y,  2); 
type  My_Indices2  is  (a,  b,  c); 


function  (Left  :  My_Elementsl, 

Right  :  My_Elements2)  return  My_Elements3; 


function  (Left 
Right 


My_Elements2, 

My_Elements2)  return  My_Elements2_Squared; 


function  (Left 
Right 


:  My_Elements3, 

:  My_Elements3)  return  My_Elements3_Squared; 


function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl; 
function  Sqrt  (Input  :  My_Elements3_Squared)  return  My_Elements3; 


package  V_Opnsl  is  new 

General_Vec  t  or_Ma  t  r  i  x_Algebra .  Vec  t  or_0pera  t  i  ons_Cons  t  rained 
(Vector_Elements  ■>  My_Elementsl , 

Vector_Elements_Squared  ■>  My_Elementsl_Squared, 

Indices  «>  My_Indicesl) ; 

use  V_0pn.*,;l; 


subtype  Vectorsl  is  V_Opnsl. Vectors; 


package  M_0pns2  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Constrained 
(Col~Indices  =>  My_Indices2, 

Elements  =>  My~Elements2, 

Row_Indices  =>  My_Indicesl) ; 

use  M_0pns2; 

•  •  • 

subtype  Matrices2  is  M_Opns2. Matrices; 


package  V_0pns3  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Cons  trained 
(Vector_Elements  ~  =>  My  Elements3, 

Vector_Elements_Squared  =>  My_Elements3_Squared, 

Indices  =>  My_Indices2) ; 

use  V_0pns3; 

•  •  • 

subtype  Vectors3  is  V_0pns3. Vectors; 

•  •  • 

function  is  new 

General_Vector  Matrix  Algebra. 
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Vector  Matrix  Multiply  Constrained 


(Matrix_Elements 
Input_Vector_Elements 
Output_Vector_Elements 
Indicesl 
Indices2 
Input_Vectors 
Input_Matrices 
Output_Vectors 


>  My_Elements2, 
=>  My~Elementsl, 
=>  My  Elements3, 
=>  My~Indicesl, 
=>  My_Indices2, 
=>  Vectorsl, 

=>  Matrices2, 

=>  Vectors3); 


Vectorl  :  Vectorsl; 

Matrix2  :  Matrices2; 

Vector3  s  Vectors3; 

begin 

Vector3  :«  Vectorl  *  Matrix2; 


The  following  shows  a  sample  usage  of  this  part  where  the  input 
matrix  is  sparse: 


with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

type  My_Elements3_Squared  is  new  My_Elements3; 

•  •  • 

type  My  lndicesl  is  (x,  y,  z“); 
type  My_Indices2  is  (a,  b,  c); 

•  •  • 

function  Sparse  Left_Multiply 

(Left  :  My_Elementsl; 

Right  :  My_Elements2)  return  My_Elements3; 

function  Sparse  Left_Add 

(Lelt  :  My_Elements3; 

Right  :  My_Elements3)  return  My_Elements3; 

•  •  • 

function  (Left  :  My_Elements2, 

Right  :  My~Elements2)  return  My_Elements2_Squared; 

•  *  • 

function  (Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl ; 
function  Sqrt  (Input  :  My_Elements3_Squared)  return  My_Elements3; 

•  •  • 

package  V_0pnsl  is  new 

Gineral_Vector_Matrix_Algebra.Vector_Operations_Cons  trained 
(Vector_Elements  -  =>  My_Elementsl , 

Vector_Elements_Squared  =>  My_Elementsl_Squared, 

Indices  =>  My_Indicesl); 

use  V_0pnsl; 

•  •  • 

subtype  Vectorsl  is  V_0pnsl. Vectors; 
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package  Sparse  M_0pns2  is  new 

GeneraI_Vector_Matrix_Algebra. 

Dynamically  Sparse_Matrix  Opera tions_Cons trained 
(Col  Indices  =>  My_lndlces2, 

Elements  *>  My_Elements2 , 

Row_Indices  =>  My_Indicesl) ; 
use  Sparse_M_0pns2; 

subtype  Sp_Matrices2  is  Spar se_M_0pns 2. Mat rices; 

•  •  « 

package  V_0pns3  is  new 

General  Vector_Matrix_Algebra.Vector_Operations_Cons trained 
(Vector_Elements  =>  My_Eliments3, 

Vector2Elements_Squared  ->  My_Elements3_Squared, 

Indices  *>  My~Indices2); 

use  V_0pns3; 

subtype  Vectors3  is  V_0pns3.Vectors(My_Indices) ; 


package  V_M_Mult  is  new 

General_Vector  Matrix  Algebra. 

Vector_MatrIx_MultIply_Restricted 


( Ma t r i x_El emen t s 
Inpu  t_Vec  t  or_Elemen  t  s 
OutputVectorElements 
Indicesl 
Indices2 
Input_Matrices 
Input_Vectors 
Output_Vectors 
«*" 


use  V  M  Mult; 


*>  My_Elements2, 

■>  My^Elementsl, 

=>  My_Elements3, 

«>  Mylndicesl, 

«>  My_Indices2, 

*>  Sp_Matrices2, 

«>  Vectorsl, 

«>  Vectors3, 

■>  Sparse_Left_Multiply, 
■>  Sparse  Left~Add); 


Vectorl*  :  Vectorsl; 
Sp_Matrix2  :  Sp_Matrices2; 
Vector3  :  Vectors3; 


»  i  t 

function  Sparse  Lef t_Multiply 

(Left  :  My_Elementsl; 

Right  s  My  Elements2)  return  My_Elements3  is 
Answer  :  My_Elementsl; 
begin 

if  Left  *=  0.0  then 

Answer  :=  My_Elements3(Right); 
else 

Answer  :=  My  Elements3(Lef t  *  My_Elementsl(Right)); 
end  if; 
return  Answer; 
end  Sparse_Lef t_Multiply ; 


function  Sparse  Left_Add 

(Lelt  :  My_Elements3; 

Right  :  My  Elements3)  return  My_Elements3  is 
Answer  :  My_Elements3; 
begin 
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if  Left  =  0.0  then 
Answer  :=  Right; 
else 

Answer  :*  Left  +  Right; 
end  if; 
return  Answer; 
end  Sparse  Left  Add; 


begin 
•  •  • 

Vector3 


Vector2  *  Sp_Matrixl; 


3.6.8.2.9.19.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.19.6  DECOMPOSITION 


None. 


3.6.8.2.9.20  VECTOR_VECTOR_TRANSPOSE_MULTIPLY_UNRESTRICTED  (CATALOG  #P187-0) 

This  package  contains  a  function  which  multiplies  an  m  x  1  vector  by  the 
transpose  of  an  n  x  1  vector,  returning  the  resultant  m  x  n  matrix. 

The  following  exceptions  are  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


Dimension  Error 


Raised  if  the  length  of  the  left  input  vector  is  not  the 
same  as  the  length  of  the  first  dimension  of  the  output 
matrix  or  if  the  length  of  the  right  input  vector  is 
not  the  same  as  the  second  dimension  of  the  output 
matrix 


3.6.8.2.9.20.1  REQUIREMENTS  ALLOCATION 
N/A. 

3.6.8.2.9.20.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 


|  Type  |  Description 


Lef t_Vector_Elements 

Right_Vector_Elements 

Matrix_Elements 

Lef t_Vector_Indices 

Right_Vector_Indices 

Col_Indices 

Row_Indices 

Lef t_Vectors 

Right_Vectors 

Matrices 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
discrete 
discrete 
type 

discrete 

type 

array 

array 

array 


Data  type  of  elements  in  left  input 
vector 

Data  type  of  elements  in  right  input 
vector 

Data  type  of  elements  in  output 
matrix 

Used  to  dimension  left  input  vector 

Used  to  dimension  right  input  vector 

Used  to  dimension  second  dimension 
of  output  matrix 

Used  to  dimension  first  dimension  of 
output  matrix 

Data  type  of  left  input  vector 

Data  type  of  right  input  vector 

Data  type  of  output  matrix 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

|  Description  | 

n*n 

function 

|  Operator  defining  the  multiplication  operation 
j  Left  Vector_Elements  *  Right  VectorJElements  :* 

|  MatrTx_Elements 

3.6.8.2.9.20.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.20.4  INTERRUPTS 


None. 


3.6.8.2.9.20.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

wi  th  General_Vec tor_Matr ix_Algebra ; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl ; 
type  My_Elements2"  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3  is  new  FLOAT; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
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type  My_Rov  Indices  is  (x,  y,  z); 
type  My_IndTces  is  (i,  j,  k); 

•  »  • 

function  (Left  :  My_Elementsl , 

Right  :  My-Elements2)  return  My_Elements3; 

•  •  • 

function  (Left  :  My_Elementsl, 

Right  :  My  Elementsl)  return  My_Elementsl_Squared; 

function  "*"  (Left  :  My_Elements2, 

Right  :  My_Elements2)  return  My_Elements2_Squared; 

function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl ; 
function  Sqrt  (Input  :  My_Elements2~Squared)  return  My_Elements2; 

package  V_Opnsl  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(VectorElements  =>  My_Elementsl, 

VectorElementsSquared  =>  MyJElementslSquared, 

Indices  =>  My_Indices)j 

use  V_Opnsl; 

subtype  Vectorsl  is  V_Opns 1. Vec tor s(My_Ind ices) ; 

•  •  • 

package  V_0pns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
<Vector_Elements  ->  My_Elements2, 

Vector~Elements_Squared  ->  My~Elements2_Squared, 

Indices  *>  Mylndices);- 

use  V_0pns2; 

•  •  • 

subtype  Vectors2  is  V_0pns2.Vectors(My_Indices) ; 

•  •  • 

package  M_0pns3  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Unconstrained 
(Col_Indices  ■>  My_Col_Indices, 

Elements  >=>  My_Elements3, 

Row_Indices  =>  My~Row_Indices) ; 

use  M_0pns3; 

•  •  • 

subtype  Matrices3  is  M_0pns3.Matrices(My_Row_Indices,  My_Col_Indices) ; 
•  •  • 

package  V_V_T_Multiply  is  new 

General_Vector_Matrix_Algebra. 

Vector  Vec tor_Transpose_Multiply_Unres trie ted 
(Lelt  Vector_Elements  =>  My_Elementsl, 
MatrTx_Elements  =>  My_Elements3, 

Right_Vector_Elements  ->  My_Elements2, 

Col_Indices  ~  =>  My_Col  Indices, 

Lef t_Vector_Indices  =>  My_lndlces, 
RighI_Vector_Indices  =>  My_Indices, 

Row_Indices  =>  My_Rov_Indices , 

Left_Vectors  =>  Vectorsl, 

InputMa trices  =>  Matrices3, 

Right  Vectors  =>  Vectors2); 

use  V_V  T_Multiply; 


•  •  # 
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Vectorl  :  Vectorsl; 

Vector2  :  Vectors2; 

Matrix3  :  Matrices!!; 

•  •  • 
begin 

Matrix3  :=  Vectorl  *  Vector2; 


3.6.8.2.9.20.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.20.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  parts 


|  Name  |  Type 

Description  | 

|  function 

Multiplies  an  m  x  1  vector  by  the  transpose  of  an  n  x  1 

1 

vector,  returning  the  resultant  m  x  n  matrix 

1 

c(i,j)  :«  a(i)  *  b(j) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 

|  Name 

|  Catalog  #  | 

|  "*« 

I  P532-0  | 

3.6.8.2.9.20.8  PART  DESIGN 


None. 


3.6.8.2.9.21  VECTOR_VECTOR_TRANSPOSE_MULTIPLY_RESTRICTED  (CATALOG  #P188-0) 

This  function  multiplies  an  m  x  1  vector  by  the  transpose  of  an  n  x  1  vector, 
returning  the  resultant  m  x  n  matrix. 


3.6.8.2.9.21.1  REQUIREMENTS  ALLOCATION 
N/A. 

3.6.8.2.9.21.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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Data  types: 


The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

1 

Description  | 

Left  Vector  Elements 

|  floating 

1 

Data  type  of  elements  in  left  input 

point  type 

1 

vector 

Right  Vector  Elements 

j  floating 

1 

Data  type  of  elements  in  right  input 

|  point  type 

1 

vector 

Matrix  Elements 

j  floating 

1 

Data  type  of  elements  in  output 

|  point  type 

1 

matrix 

Indicesl 

j  discrete 

1 

Used  to  dimension  left  input  vector 

1  type 

1 

and  first  dimension  of  output  matrix 

Indices2 

|  discrete 

1 

Used  to  dimension  right  input  vector 

1  type 

1 

1 

1 

and  second  dimension  of  output 
matrix 

Left  Vectors 

|  array 

1 

Data  type  of  left  input  vector 

Right  Vectors 

j  array 

1 

Data  type  of  right  input  vector 

Matrices 

|  array 

1 

Data  type  of  output  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

1  Type 

Description  | 

|  «*" 

1 

1 

|  function 

1 

t 

Operator  defining  the  multiplication  operation 

Left  Vector_Elements  *  Right_Vector_Elements  :■ 

Matrix  Elemints  ~ 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

j  Description  | 

|  Left 

1  Right 

1 

|  Left_Vectors  | 
j  Right  Vectors  j 

1  "  1 

In 

In 

|  Vector  to  be  used  as  the  multiplicand  | 

|  Vector  whose  transpose  is  to  be  used  as  j 
j  the  multiplier  | 

3. 6.8. 2. 

9.21.3  INTERRUPTS 

None. 
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3.6.8.2.9.21.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My  Element si  is  new  FLOAT; 

type  My~Elementsl_Squared  is  new  My_Elementsl; 
type  My_Elements2~  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3 
•  •  • 

type  My_Col_Indices 
type  My_Row_Indices 

function  "*"  (Left 
Right 

function  (Left 

Right 

•  •  • 

function  (Left 

Right 

•  •  • 

function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl; 
function  Sqrt  (Input  :  My_Elements2_Squared)  return  My_Elements2; 

•  •  • 

package  VOpnsl  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Constrained 
(Vector_Eleiiients  ■>  My_Elementsl, 

Vector_Elements_Squared  =>  My_Elementsl_Squared, 

Indices  ■>  My_Row_Indices) ; 

use  V_Opnsl; 

subtype  Vectorsl  is  V_Opnsl.Vectors(My_Indices) ; 

•  #  • 

package  V_0pns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Cons trained 
(Vector_Elements  *>  My_Eliments2, 

Vector_Elements_Squared  *>  My_Elements2_Squared, 

Indices  *>  My_Indices); 

use  V_0pns2; 

•  •  • 

subtype  Vectors2  is  V_0pns2.Vectors(My_Indices) ; 

•  •  • 

package  M_0pns3  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Const rained 
(Col_Indices  =>  My~Col_Indices , 

Elements  =>  My~Elements3, 

Row_Indices  =>  My_Row_Indices) ; 

use  M_0pns3; 

•  •  • 

subtype  Matrices3  is  M_0pns3.Matrices(My_Rov_Indices,  My_Col_Indices) ; 
•  •  • 

function  V_V_T_Multiply  is  new 

General_Vector_Matrix_Algebra. 

Vector_Vector_Transpose_Multiply_Res trie ted 


is  new  FLOAT; 

is  (a,  b,  c); 
is  (x,  y,  z); 

:  My_Elementsl, 

:  My_Elements2)  return  My_Elements3; 

:  MyElementsl, 

:  My_Elementsl)  return  My_Elementsl_Squared; 
j  My_Elements2, 

:  My_Elements2)  return  My_Elements2_Squared; 
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(Lef t_Vector_Elements 

*>  My  Elementsl, 

Matrix  Elements 

=>  My^ElementsS, 

Right  Vector  Elements 

*>  My~Elements2, 

Indicisl 

=>  My~Row  Indices, 

Indices2 

=>  My~Col  Indices, 

Left  Vectors 

=>  Vectorsl, 

Matrices 

=>  Matrices3, 

Right_Vectors 

=>  Vectors2); 

use  V_V_T_Multiply; 

Vectorl  :  Vectorsl; 

Vector2  :  Vectors2; 

Matrix3  :  Matrices3; 

begin 

t  i  * 

Matrix3  :■=  Vectorl  *  Vector2; 


3.6.8.2.9.21.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.21.6  DECOMPOSITION 
None. 


3.6.8.2.9.22  MATRIX  MATRIX  MULTIPLYJJNRESTRICTED  (CATALOG  #P189-0) 

This  package  contains  a  function  vhich  multiplies  an  m  x  n  matrix  by  an  n  x  p 
matrix,  returning  an  m  x  p  matrix.  The  inner  dimensions  of  the  input  matrices 
must  be  equal.  This  part  can  be  made  to  handle  sparse  matrices  by  tailoring 
the  imported  and  functions  (see  sections  describing  generic  formal 
subprograms  and  calling  sequence). 

The  following  exceptions  are  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


Dimension  Error 


Raised  if  the  lengths  of  the  inner  dimensions  of  the 
input  matrices  are  not  the  same  or  if  the  lengths  of  the 
first  dimension  of  the  left  input  matrix  and  the  second 
dimension  of  the  right  input  matrix  are  not  the  same  as 
the  corresponding  dimensions  of  the  output  matrix 


3.6.8.2.9.22.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R077. 
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3.6.8.2.9.22.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

1 

Description  | 

Left  Elements 

floating 

1 

Data  type  of  elements  in  left  input 

point  type 

1 

matrix 

Right  Elements 

floating 

1 

Data  type  of  elements  in  right  input 

point  type 

matrix 

Output  Elements 

floating 

1 

Data  type  of  elements  in  output  matrix 

Left  Col  Indices 

point  type 
discrete 

Used  to  dimension  second  dimension  of 

type 

1 

left  input  matrix 

Left  Row  Indices 

discrete 

1 

Used  to  dimension  first  dimension  of 

type 

1 

left  input  matrix 

Right  Col  Indices 

discrete 

1 

Used  to  dimension  second  dimension  of 

type 

1 

right  input  matrix 

Right  Row  Indices 

discrete 

Used  to  dimension  first  dimension  of 

* 

type 

right  input  matrix 

Output  Col  Indices 

discrete 

1 

Used  to  dimension  second  dimension  of 

type 

1 

output  matrix 

Output  Row  Indices 

discrete 

1 

Used  to  dimension  first  dimension  of 

type 

1 

output  matrix 

Left  Matrices 

array 

1 

Data  type  of  left  input  matrix 

Right  Matrices 

array 

1 

Data  type  of  right  input  matrix 

Output_Mat rices 

array 

1 

Data  type  of  output  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  To  tailor  this  function  to  handle  sparse  matrices,  the  formal 
subroutines  should  be  set  up  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

|  Description 

1 

|  function 

1 

|  Function  defining  the  operation 
Left  Elements  *  Right  Elements  := 

1 

Output  Elements  | 

•l  +  H 

|  function 

1 

j  Function  defining  the  operation 
j  Output_Elements  +  Output_Elements 
|  Output_Elements 

:  *  j 

1 

3.6.8.2.9.22.3  LOCAL  ENTITIES 


None. 
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3.6.8.2.9.22.4  INTERRUPTS 
None. 


3.6.8.2.9.22.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part  assuming  both  input 
matrices  are  dense  matrices: 


with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 
type  My~Elements2  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_Row_Indices  is  (x,  y,  z); 

•  •  • 

function  (Left  :  My_Elementsl , 

Right  :  My_Elements2)  return  My_Elements3; 


package  M_0pnsl  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Uncons  trained 
(Col~Indices  ->  My_Col_Indices, 

Elements  ->  My_Elementsl, 

Row_Indices  ->  My_Row_Indices); 

use  M_Opnsl; 

•  •  • 

subtype  Matricesl  is  M_Opnsl.Matrices(My_Row_Indices,  My_Col_Indices); 
•  •  • 

package  M_0pns2  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Unconstrained 
(Col_Indices  «>  My_Col_Indices, 

Elements  ->  My~Elements2, 

Row_Indices  =>  My_Row_Indices) ; 

use  M_0pns2; 


subtype  Matrices2  is  M_0pns2. Matrices (My _Rov_Indices,  My_Col_Indices); 
•  •  • 

package  M_0pns3  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Uncons  trained 
(Col_Indices  ■*>  My~Col_Indices, 

Elements  =>  My_Elements3, 

Row  lndices  =>  My_Row_Indices) ; 

use  M_0pns3; 


subtype  Matrices3  is  M_0pns3.Matrices(My_Row_Indices,  My_Col_Indices) ; 


package  M_M_Mult  is  new 

Geiieral_Vector_Matr  ix_Algebra . 

Matrix  Matrix  Multiply  Unrestricted 


(LeIt_Elements 
Output_Elements 
Right_Elements 
Lef t_Col_Indices 
Left  Row  Indices 


=>  My_Elementsl, 

=>  My~Elements3, 

=>  My  Elements2, 

*>  My~Col_Indices, 
=>  My  Row~Indices, 
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use  M  M  Mult; 


Output_Col_Indices  => 
Output  Row  Indices  => 
Right_Col_Indices  => 
Right  Row  Indices  => 
Lef t_MatrIces  => 
Output_Matrices  => 
Right_Matrices  => 


My_Col_Indices, 
My_Row_Indices, 
My_Col_Indices, 
My_Rov_Indices , 
Matricesl , 
Matrices3, 
Matrices2) ; 


Matrixl  :  Matricesl; 

Matrix2  :  Matrices2; 

Matrix3  :  Matrices3; 

begin 

Matrix3  :*  Matrixl  *  Matrix2; 


The  following  shows  how  this  part  could  to  tailored  to  handle  the 
multiplication  of  sparse  matrices.  In  this  example,  it  is  assumed  that 
the  left  input  matrix  is  the  sparse  matrix.  This  part  could  also  be 
tailored  to  handle  a  sparse  matrix  for  the  right  parameter  or  sparse 
matrices  for  both  parameters  by  modifying  the  multiplication  and 
addition  operators. 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My_Row_Indices  is  (x,  y,  z); 

•  •  • 

function  Sparse  Lef t_Multiply 

(Lelt  :  My^Elementsl, 

Right  :  My_Elements2)  return  My_Elements3; 

function  Sparse  Left_Add 

(Left  :  My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3; 

•  •  • 

package  Dyn_Sparse_M_Opnsl  is  new 

General_Vec  tor_Ma  t  r i x_Algebr a . 

Dynamically-Sparse_Matrix_Operations_Uncons trained 
(Col_IndTces  *>  My_Col_Indices, 

Elements  *>  My_Elementsl , 

Row_Indices  =>  My_Row_Indices) ; 
use  Dyn_Sparse_M_Opnsl; 

•  •  # 

subtype  Sp_Matricesl  is  Dyn_Sparse_M_Opnsl. 

Matrices(My_Row_Indices ,  My_Col_Indices) ; 


package  M_0pns2  is  new 

Gineral  Vector_Matrix_Algebra. 

Matrix  Operations_Unconstrained 
(CoT_Indices  =>  My  Col  Indices, 
Elements  =>  My_Eleiiients2, 
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Row_Indices  *>  My_Rov  Indices); 

use  M_0pns2; 

•  •  • 

subtype  Matrices2  is  M_0pns2.Matrices(My_Row_Indices,  My_Col_Indices) ; 
•  •  • 

package  Dyn_Sparse_M_0pns3  is  new 

General_Vec  tor_Ma  t  r i x_Algebr a . 

Dynamically  Sparse_Matrix_Operations_Uncons trained 
(Col_IndIces  =>-My_Col_Indices, 

Elements  =>  My  Elements3, 

Row_Indices  *>  My~Row_Indices) ; 
use  Dyn_Sparse_M_0pns3; 

subtype  Sp_Matrices3  is  Dyn_Sparse_M_0pns3. 

MatriceI(My_Row_Indices,  My_Col_Indices); 

•  •  • 

function  is  new 

General  Vector  Matrix  Algebra. 

Matrix  Ma t rIx_Mul tTply_Unres t r i c t ed 
(LeIt_Elements  *>  My_Elementsl , 

Output_Elements  =>  My_Elements3, 

Right_Elements  =>  My_Elements2, 

Lef t_Col_Indices  ->  My~Col_Indices, 

Left_Row_Indices  «>  My~Row_Indices, 
Output_Col_Indices  ■>  My_Col~Indices, 

OutputRow  Indices  «>  My~Row_Indices, 
Right_£ol_Tndices  «>  MyColIndices, 

RightRow  Indices  «>  MyRowIndices, 

Left_MatrIces  *>  Sp~Matricesl, 

Output_Matrices  *>  Sp_Matrices3, 

Right_Matrices  *>  Matrices2, 

■>  Sparse_Lef t_Multiply, 

"+"  ■>  Sparse~Lef t_Add) ; 

•  •  • 

Sp_Matrixl  :  Sp_Matricesl; 

Matrix2  :  Matrices2; 

Sp_Matrix3  :  Sp_Matrices3; 

•  •  • 

function  Sparse  Lef t_Multiply 

(Lelt  s  My_Elementsl, 

Right  :  My  Elements2)  return  My_Elements3  is 
Answer  :  My_Elements3; 
begin 

if  Left  «  0.0  then 

Answer  My_Elements3(Right); 
else 

Answer  :=  My_Elements3(Lef t  *  My_Elementsl(Answer)); 
end  if; 

return  Answer; 
end  Sparse_Lef t_Multiply; 

•  •  • 

function  Sparse  Left_Add 

(Lelt  :~My_Elements3, 

Right  :  My_Elements3)  return  My_Elements3 
Answer  :  My_Elements3; 
begin 

if  Left  =  0.0  then 
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Answer  :=  Right; 
else 

Answer  :=  Left  +  Right; 
end  if; 

return  Answer; 
end  Sparse_Left_Add; 

•  •  • 

begin 

Sp_Matrix3  :=  Sp_Matrixl  *  Matrix2; 


3.6.8.2.9.22.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.22.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description  | 

|  function 

1 

1 

Multiplies  an  m  x  n  matrix  by  an  n  x  p  matrix, 
returning  the  result  m  x  p  matrix  ' 
c(i, j)  :«  a(i,k)  *  b(k,j) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 

|  Name 

|  Catalog  #  | 

|  «*" 

|  P533-0  | 

3.6.8.2.9.22.8  PART  DESIGN 


None. 


3.6.8.2.9.23  MATRI X_MATRI X_MULTI P L Y_RE STRI CTED  (CATALOG  #P190-0) 

This  function  multiplies  an  m  x  n  matrix  by  an  n  x  p  matrix,  returning  an  m  x  p 
matrix.  This  part  can  be  made  to  handle  sparse  matrices  by  tailoring  the 
imported  "4"  and  functions  (see  sections  describing  generic  formal 
subprograms  and  calling  sequence). 


3.6.8.2.9.23.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R077. 
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3.6.8.2.9.23.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 


Type  |  Description 


Lef t_Elements 

Right_Elements 

Output_Elements 

M_Indices 

N_Indices 

P_Indices 

Left_Matrices 
Right_Matrices 
Out put  Mat rices 


|  floating 
j  point  type 
j  floating 
j  point  type 
j  floating 
j  point  type 
j  discrete 
I  type 
|  discrete 

I  type 

! 

j  discrete 
I  type 
|  array 
j  array 
j  array 


Data  type  of  elements  in  left  input 
matrix 

Data  type  of  elements  in  right  input 
matrix 

Data  type  of  elements  in  output  matrix 

Used  to  dimension  first  dimension  of 
left  input  matrix  and  output  matrix 
Used  to  dimension  second  dimension  of 
left  input  matrix  and  first  dimension 
of  right  input  matrix 
Used  to  dimension  second  dimension  of 
right  input  matrix  and  output  matrix 
Data  type  of  left  input  matrix 
Data  type  of  right  input  matrix 
Data  type  of  output  matrix 


Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part.  To  tailor  this  function  to  handle  sparse  matrices,  the  formal 
subroutines  should  be  set  up  to  check  the  appropriate  element(s)  for  zero 
before  performing  the  indicated  operation. 


|  Name 

1  Type 

|  Description 

1 

|  «*" 

|  function 

|  Function  defining  the  operation 

1 

1 

Left  Elements  *  Right  Elements  :* 

Output  Elements  [ 

j  "+" 

|  function 

j  Function  defining  the  operation 

1 

1 

1 

j  Output_Elements  +  Output_Elements 
j  Output~Elements 

:  «=  j 

1 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

Type 

Mode 

|  Description  | 

|  Left 

1 

Lef t_Matrices 

In 

|  M  X  N  matrix  to  be  used  as  the 
j  multiplicand  j 

|  Right 

1 

Right  Matrices 
' 

In 

j  N  X  P  matrix  to  be  used  as  the 
j  multiplier  j 

3.6.8.2.9.23.3  INTERRUPTS 


None. 


3.6.8.2.9.23.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

The  following  shows  a  sample  usage  of  this  part  assuming  both  input 
matrices  are  dense  matrices: 

wi th  General_Vector_Mat rix_Algebra ; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

•  •  • 

type  MyMIndices  is  new  INTEGER  1..3; 
type  My_N_Indices  is  new  INTEGER  1..4; 
type  My_P_Indices  is  new  INTEGER  1..3; 

•  •  • 

function  (Left  :  My_Elementsl, 

Right  :  My_Elements2)  return  My_Elements3; 

package  M_Opnsl  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Cons  trained 
(Col_Indicei  =>  My~N  Indices, 

Elements  *>  My_Elementsl, 

Row_Indices  ■>  My_M_Indices) ; 

use  M_Opnsl; 

•  •  • 

subtype  Matricesl  is  M_Opnsl. Matrices; 

•  •  • 

package  M_0pns2  is  new 

General_Vec  tor_Ma  t  r  i  x_Algebra  .Mat  r  ix_0pera  t  i  ons_Cons  t  rained 
(Col~Indices  =>  My_P  Indices, 

Elements  =>  My~Elements2, 

Row_Indices  =>  My_N_Indices) ; 

use  M_0pns2; 

•  •  • 

subtype  Matrices2  is  M_0pns2. Matrices; 

•  •  • 

package  M_0pns3  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Cons trained 
(Col~Indices  =>  My~P_Indices, 

Elements  =>  My_Elements3, 
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Rov_Indices  «>  My_M_Indices) ; 

use  M_0pns3; 

subtype  Matrices3  is  M_0pns3. Matrices; 


package  M_M_Mult  is  new 

General  Vector_Matrix_Algebra. 

Matrix  Matrix  Multiply  Restricted 


use  M  M  Mult; 


(LeIt_Elemints 
Output_Elements 
Right  Elements 
M_lndlces 
N_Indices 
P_Indices 
Left_Matrices 
Output_Matrices 
Right_Matrices 


=>  My_Elementsl 
=>  My~Elements3 
=>  My_Elements2 
=>  My~M_Indices 
*>  My~N_Indices 
=>  My~P  Indices 
=>  Matrlcesl, 

=>  Matrices3, 

=>  Matrices2); 


Matrixl  :  Matricesl; 

Matrix2  :  Matrices2; 

Matrix3  :  Matrices3; 

•  •  • 
begin 
•  •  • 

Matrix3  Matrixl  *  Matrix2; 


The  following  shows  how  this  part  could  to  tailored  to  handle  the 
multiplication  of  sparse  matrices.  In  this  example,  it  is  assumed  that 
the  left  input  matrix  is  the  sparse  matrix.  This  part  could  also  be 
tailored  to  handle  a  sparse  matrix  for  the  right  parameter  or  sparse 
matrices  for  both  parameters  by  modifying  the  multiplication  and 
addition  operators. 

wi  th  General_Vec tor_Matrix_Algebra ; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

•  •  • 

type  My_M_Indices  is  new  INTEGER  1..3; 
type  My_N_Indices  is  new  INTEGER  1..4; 
type  My_P_Indices  is  new  INTEGER  1..3; 

•  •  • 

function  Sparse  Left_Multiply 

(Lelt  :  My_Elementsl, 

Right  :  My~Elements2)  return  My_Elements3; 

•  •  • 

function  Sparse  Left_Add 

(Lelt  :~My_Elements3, 

Right  :  My~Elements3)  return  My_Elements3; 

package  Dyn_Sparse_M_Opnsl  is  new 

General_Vector_Matrix_Algebra. 

Dynamically-Sparse”Matrix_Operations_Cons  trained 
(Col_IndIces  =>  My_N  Indices, 

Elements  =>  My_Elementsl, 
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Rov_Indices  =>  My_M_Indices) ; 
use  Dyn_Sparse_M_Opnsl; 

•  •  • 

subtype  Sp_Matricesl  is  Dyn_Sparse_M_Opnsl .Matrices; 


package  M_0pns2  is  nev 

General  Vector_Matrix_Algebra .  Matrix_Operations_Constrained 
(Col~Indices  =>  My~P  Indices, 

Elements  =>  My~Elements2, 

Rov_Indices  =>  My_N_Indices); 

use  M_0pns2; 

subtype  Matrices2  is  M_0pns2. Matrices; 


package  Dyn_Sparse_M_0pns3  is  nev 

General_Vector_Matrix_Algebra. 

Dynamically  Sparse~Matrix_Operations_Cons trained 
(Col_IndTces  «>~My_P  Indices, 

Elements  *>  My_Elements3, 

Row_Indices  =>  My  M_Indices); 
use  Dyn_Sparse_M_Opns3; 

•  •  * 

subtype  Sp_Matrices3  is  Dyn_Sparse_M_0pns3.Matrices; 


function  "*"  is  nev 

General  Vector  Matrix  Algebra. 

Matrix  MatrlxMultlplyRestricted 


(LeltElements 
Output  Elements 
Right  Elements 
M_lndlces 
N~Indices 
P_Indices 
Lef t_Matrices 
Output_Ma trices 
RightMatrices 


*>  My_Elementsl, 
m>  My_Elements3, 

->  My_Elements2, 

->  My_M_Indices, 

■>  My_N~Indices, 

■>  My”P_Indices, 

■>  Sp_Matricesl, 

*>  Sp_Matrices3, 

=>  Matrices2, 

=>  SparseLef t_Multiply, 
=>  Sparse  Left-Add); 


Sp_Matrixl 

Matrix2 

Sp_Matrix3 


Sp_Matricesl; 

Matrices2; 

Sp_Matrices3; 


function  Sparse  Lef t_Multiply 

(Lelt  :~My_Elementsl, 

Right  :  My~Elements2)  return  My_Elements3  is 
Answer  :  My_Elements3; 
begin 

if  Left  *  0.0  then 

Answer  :=  My_Elements3(Right) ; 
else 

Answer  :=  My  Elements3(Lef t  *  My_Elementsl(Ansver) ) ; 
end  if; 

return  Answer; 
end  Sparse_Lef t_Multiply; 


function  Sparse_Lef t_Add 


i 
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(Left  :  My  Elements3, 

Right  :  My_Elements3)  return  My_Elements3 
Answer  :  My_Elements5; 
begin 

if  Left  -  0.0  then 
Answer  :*  Right; 
else 

Answer  :«  Left  +  Right; 
end  if; 

return  Answer; 
end  Sparse_Left_Add; 

«  «  • 

begin 

Sp_Matrix3  Sp_Matrixl  *  Matrix2; 


3.6.8.2.9.23.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.23.6  DECOMPOSITION 


None. 


3-6.8.2.9.24  MATRIX  MATRIX  TRANSPOSE  MULTIPLY  UNRESTRICTED  (CATALOG  #P191-0) 

This  package  contains  a  function  which  multiplies  an  m  x  n  matrix  by  the 
transpose  of  a  p  x  n  matrix  returning  the  resultant  m  x  p  matrix. 

The  following  exceptions  are  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


Dimension  Error 


Raised  if  the  second  dimensions  of  the  two  input 
matrices  are  not  of  the  same  length,  if  the  lengths  of 
the  first  dimensions  of  the  left  and  output  matrices  are 
not  the  same,  or  if  the  lengths  of  the  second  dimensions 
of  the  right  and  output  matrices  are  not  the  same 


3.6.8.2.9.24.1  REQUIREMENTS  ALLOCATION 
N/A. 


3.6.8.2.9.24.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  types: 
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The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

I 

description  | 

Left  Elements 

floating 

1 

Type  of  elements  in  left  input  matrix 

Right  Elements 

point  type 
floating 

1 

Type  of  elements  in  right  input  matrix 

Output  Elements 

point  type 
floating 

1 

Type  of  elements  in  output  matrix 

Left  Col 

point  type 
discrete 

1 

1 

Used  to  dimension  second  dimension  of 

Indices 

type 

1 

left  input  matrix 

Left  Row 

discrete 

1 

Used  to  dimension  first  dimension  of 

Indices 

type 

1 

left  input  matrix 

Right  Col 

discrete 

1 

Used  to  dimension  second  dimension  of 

Indices 

type 

1 

right  input  matrix 

Right  Row 

discrete 

1 

Used  to  dimension  first  dimension  of 

Indices 

type 

1 

right  input  matrix 

Output  Col 

discrete 

1 

Used  to  dimension  second  dimension  of 

Indices 

type 

1 

output  matrix 

Output  Row 

discrete 

1 

Used  to  dimension  first  dimension  of 

Indices 

type 

1 

output  matrix 

Left  Matrices 

array 

1 

Data  type  of  left  input  matrix 

Right  Matrices 

array 

1 

Data  type  of  right  input  matrix 

Output_Ma trices 

array 

1 

Data  type  of  output  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

| 

1 

|  function 

I 

Operator  used  to  define  the  operation: 

Left  Elements  *  Right  Elements  :»  Output_Elements  j 

3.6.8.2.9.24.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.24.4  INTERRUPTS 


None. 


3.6.8.2.9.24.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector  Matrix  Algebra; 
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type  My_Elementsl  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

•  •  • 

type  My_Col_Indices  is  (a,  b,  c); 
type  My _Row  Indices  is  (x,  y,  z); 

•  «  • 

function  "*H  (Left  :  My_Elementsl, 

Right  :  My~Elements2)  return  My_Elements3; 

package  M_Opnsl  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Unconstrained 
(Col_Indices  =>  My_Col_Indices, 

Elements  «>  MyJElementsl, 

Row_Indices  «>  My  Row  Indices); 

use  M_Opnsl; 

•  •  • 

subtype  Matricesl  is  M_Opnsl.Matrices(My_Row_Indices,  My_Col_Indices) ; 
•  •  • 

package  M_Opns2  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Uncons  trained 
(Col_Indices  *>  My_Col_Indices, 

Elements  »>  My_Eleients2, 

Row_Indices  ->  My~Row_Indices) ; 

use  M_Opns2; 

•  •  • 

subtype  Matrlces2  is  M_Opns2.Matrices(Hy_Row_Indices,  My  Col  Indices); 
•  •  • 

package  M_Opns3  is  new 

General_Vec  t  or_Ma  t  r  i  x_Algebra .  Ma  t  r  i  x_0pera  t  i  ons_Uncons  t  rained 

(Collndices  «>  MyColIndices, 

Elements  *>  My~Elements3, 

Row_Indices  ->  My_Row_Indices); 

use  M_0pns3; 


subtype  Matrices3  is  M_0pns3.Matrices(My_Row_Indices,  My_Col_Indices) ; 


package  M_M_T_Mult  is  new 

General  Vector  Matrix_Algebra. 

Matrix  MatrIx_Tranipose_Multiply_Unres  trie  ted 


(Left_Eleraents  => 
Output  Elements  => 
Right_Ilements  => 
Left_Col_Indices  => 
Lef t_Row_Indices  => 
Output_Col_Indices  => 


My_Elementsl, 
My~Elements3, 
My~Elements2, 
My_Col_Indices, 
My_Row_Indices, 
My_Col_Indices, 


Output_Row_Indices  =>  My_Row_Indices, 
Right  Col  Indices  =>  My  Col  Indices, 


use  M  M  T  Mult; 


Right_Row  Indices 
Lef t_MatrIces 
Output_Matrices 
Right  Matrices 


=>  My_Row_Indices, 
=>  Matricesl, 

=>  Matrices3, 

=>  Matrices2); 


Matrixl  :  Matricesl; 
Matrix2  :  Matrices2; 
Matrix3  :  Matrices3; 
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begin 
•  •  « 

Matrix3  :=  Matrixl  *  Matrix2; 

3.6.8.2.9.24.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.8.2.9.24.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description  | 

| 

1 

1 

|  function 

1 

1 

Multiplies  an  m  x  n  matrix  by  the  transpose  of  an 
p  x  n  matrix,  returning  the  resultant  m  x  p  matrix 
a(i,j)  :«=  b(i,k)  *  c(j,k) 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

| 

|  P534-0  | 

3.6.8.2.9.24.8  PART  DESIGN 


None. 


3.6.8.2.9.25  MATRIX_MATRIX_TRANSPOSE_MULTIPLY_RESTRICTED  (CATALOG  #P192-0) 

This  function  multiplies  an  m  x  n  matrix  by  the  transpose  of  a  p  x  n  matrix 
returning  the  resultant  m  x  p  matrix. 


3.6.8.2.9.25.1  REQUIREMENTS  ALLOCATION 
N/A. 


3.6.8.2.9.25.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Left  Elements 

Right_Elements 

Output_Elements 

M_Indices 

N_Indices 

P_Indices 

Lef t_Matrices 
Right_Matrices 
Output_Mat rices 


floating 
point  type 
floating 
point  type 
floating 
point  type 
discrete 
type 

discrete 

type 

discrete 

type 

array 

array 

array 


Type  of  elements  in  left  input  matrix 

Type  of  elements  in  right  input  matrix 

Type  of  elements  in  output  matrix 

Used  to  dimension  first  dimension  of 
left  input  matrix  and  output  matrix 
Used  to  dimension  second  dimension  of 
left  and  right  input  matrix 
Used  to  dimension  first  dimension  of  right 
input  matrix  and  second  dimension  of 
output  matrix 

Data  type  of  left  input  matrix 
Data  type  of  right  input  matrix 
Data  type  of  output  matrix 


Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  «*" 

1 

|  function 

Operator  used  to  define  the  operation:  | 

Lef t_Elements  *  Right_Elements  :-  Output_Elements  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Left 

|  Left  Matrices 

1  In 

|  M  X  N  matrix  to  be  used  as  the  j 

1 

j  multiplicand  j 

|  Right 

|  Right  Matrices 

1  In 

j  P  X  N  matrix  whose  transpose  is  to  be  j 

1 

1 

1 

j  used  as  the  multiplier  j 

3.6.8.2.9.25.3  INTERRUPTS 


None. 
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3.6.8.2.9.25.4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 
type  My_Elements2  is  new  FLOAT; 
type  My_Elements3  is  new  FLOAT; 

type  MyMIndices  is  (a,  b,  c); 
type  MyNIndices  is  (x,  y,  z); 
type  My_P_Indices  is  (x,  y,  z); 

function  (Left  :  My_Elementsl , 

Right  :  My_Elements2)  return  My_Elements3; 

•  •  • 

package  M_0pnsl  is  new 

General_Vector_Matrix  Algebra. Matrix_Operations_Cons trained 
(Col_Indices  =>  My~N  Indices, 

Elements  *>  My_Elementsl, 

Row  lndices  =>  My_M_Indices) ; 

use  M_0pnsl; 

•  •  • 

subtype  Matricesl  is  M_0pnsl. Matrices; 

■  •  • 

package  M_0pns2  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Cons  trained 
(Col_Indices  «>  My_N  Indices, 

Elements  *>  My~Elements2, 

Row_Indices  *>  My_P_Indices); 

use  M_0pns2; 

•  •  • 

subtype  Matrices2  is  M_0pns2. Matrices; 


package  M_0pns3  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Cons  trained 
(Col  Indices  •=>  My  P  Indices, 

Elements  =>  My~Elements3, 

Row_Indices  =>  My_M_Indices); 

use  M_0pns3; 

•  •  * 

subtype  Matrices3  is  M_0pns3. Matrices; 


package  M_M_T_Mult  is  new 

General  Vector  Matrix_Algebra. 

Ma  t  rlx  Ma  t  rTx_T  rans  pos  e_Mul t i p ly_Res  t  r i c  t  ed 


(LeIt_Elements 
Output_Elements 
Right  Elements 
M_lndlces 
N  Indices 
P~Indices 
Left_Matrices 
Output_Matrices 
Right  Matrices 


=>  My  Elementsl, 
=>  My~Elements3, 
=>  My_Elements2, 
=>  My_M_Indices, 
=>  My  N  Indices, 
=>  My~P~Indices, 
=>  Matricesl, 

=>  Matrices3, 

=>  Matrices2); 


use  M  M  T  Mult; 
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Matrixl  :  Matricesl; 

Matrix2  :  Matrices2; 

Matrix3  :  Matrices3; 

begin 
•  •  • 

Matrix3  :=  Matrixl  *  Matrix2; 


3.6.8.2.9.25.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.25.6  DECOMPOSITION 


None. 


3.6.8.2.9.26  DOT_PRODUCT_OPERATIONS_UNRESTRICTED  (CATALOG  #P193-0) 

This  package  contains  a  function  which  performs  a  dot  product  operation  on  two 
m-element  vectors. 

The  following  exceptions  are  raised  by  this  part: 


|  Name 

|  When/ Why  Raised  | 

|  Dimension  Error  | 
1 

|  Raised  if  the  lengths  of  the  two  input  vectors  is  not 
j  the  same 

3.6.8.2.9.26.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R063. 


3.6.8.2.9.26.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

Description  | 

Left  Elements 

floating 

Type  of  elements  in  left  input  vector 

Right  Elements 

point  type 
floating 

Type  of  elements  in  right  input  vector 

Result  Elements 

point  type 
floating 

Data  type  of  result  of  dot  product 

Left  Indices 

point  type 
discrete 

Used  to  dimension  Left  Vectors 

Right  Indices 

discrete 

Used  to  dimension  Right  Vectors 

Left  Vectors 

array 

Data  type  of  left  input  vector 

Right  Vectors 

array 

Data  type  of  right  input  vector 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

| 

1 

|  function 

1 

Multiplication  operator  defining  the  operation:  | 

Lef t_Elements  *  Right  Elements  :*  Result  Elements  j 

3.6.8.2.9.26.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.26.4  INTERRUPTS 


None. 


3.6.8.2.9.26.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl ; 
type  My~Elements2  is  new  FLOAT; 

type  My_Elements2_Squared  is  new  My_Elements2; 
type  My_Elements3-  is  new  FLOAT; 

•  •  • 

type  My_Indices  is  (i,  j,  k); 

•  •  • 

function  (Left  :  My_Elementsl, 

Right  :  My_Elements2)  return  My_Elements3; 

•  •  • 

function  (Left  :  My_Elementsl, 

Right  :  My_Elementsl)  return  My_Elementsl_Squared; 
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•  •  t 

function  (Left  :  My_Elements2, 

Right  :  My_Elements2)  return  My_Elements2_Squared; 

•  •  • 

function  Sqrt  (Input  s  My_Elementsl_Squared)  return  My_Elementsl; 
function  Sqrt  (Input  :  My_Elements2~Squared)  return  My~Elements2; 


package  V_0pnsl  is  new 

General  Vector_Matrix_Algebra.Vector_Operations_Uncons trained 
(Vector_Elements  *>  My  Elimentsl, 

Vector_Elements_Squared  =>  My2Elementsl_Squared, 

Indices  =>  My_Indices); 

use  V_0pnsl; 

•  •  • 

subtype  Vectorsl  is  V_Opnsl.Vectors(My_Indices); 


package  V_0pns2  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector_Elements  ->  My_Eliments2, 

Vector_Elements_Squared  =>  My~Elements2_Squared, 

Indices  •=>  My_Indices); 

use  V_0pns2; 


subtype  Vectors2  is  V_0pns2.Vectors(My_Indices) 5 


package 


D_P_0pns  is  new 
5eneral  Vector_Matrix  Algebra. 

Dot  Fr oduc  t _0pe  ra t!ons_Un restricted 
(LeltJBlements  ~  «>  My_Elementsl, 

Right_Elements  ■>  My~Elements2 , 

Result  Elements  ->  My”Elements3, 


Left_Indices 
Right_Indices 
Lef t_Vectors 
Right  Vectors 


«>  My  Indices, 
«>  Mylndices, 
«>  Vectorsl, 

*>  Vectors2); 


Vectorl  :  Vectorsl; 
Vector2  :  Vectors2; 

Temp  :  My_Elements3; 


begin 


Temp  :■  D_P_Opns.Dot_Product(Vectorl,  Vector2); 


3.6.8.2.9.26.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.26.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type 

|  Description  | 

|  Dot  Product 

1 

1  1 

function 

|  Performs  a  dot  product  operation  on  two  m-element  | 

|  vectors  | 

|  c  :=  a(i)  +  b(i)  | 

The  following  table  lists 

the  allocation  of  catalog  numbers  to  this  part: 

|  Name 

|  Catalog  #  | 

|  Dot_Product 

|  P535-0  | 

3.6.8.2.9.26.8  PART  DESIGN 
None. 


3.6.8.2.9.27  DOT_PRODUCT_OPERATIONS_RESTRICTED  (CATALOG  #P194-0) 

This  function  performs  a  dot  product  operation  on  tvo  m-element  vectors. 


3.6.8.2.9.27.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R063. 


3.6.8.2.9.27.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


1 

Name 

1  Type 

|  Description 

1 

1 

Left  Elements 

|  floating 

|  Type  of  elements  in  left 

input  vector  i 

1 

|  point  type 

1 

1 

1 

Right  Elements 

j  floating 

|  Type  of  elements  in  right  input  vector  | 

! 

j  point  type 

1 

1 

1 

Result  Elements 

)  floating 

|  Data  type  of  result  of  dot  product 

1 

j  point  type 

1 

1 

1 

Indices 

j  discrete 

|  Used  to  dimension  input 

vectors 

1 

i  type 

1 

1 

1 

Left  Vectors 

j  array 

|  Data  type  of  left  input 

vector  ; 

I 

Right_Vectors 

j  array 

j  Data  type  of  right  input 

vector  j 
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Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description 

1 

|  "*« 

1 

|  function 

1 

Multiplication 
Lef t_Elements 

operator  defining  the  operation:  j 

*  Right_Elements  :*  Result_Elements  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

1  Type 

|  Mode 

|  Description 

1 

1  Left 

|  Left  Vectors 

1  I" 

|  First  vector 

to  be  used  in  dot  product 

1  1 

1 

j  operation 

1 

j  Right  j 
1  1 

|  Right  Vectors 

1  "  1 

1  1" 

1 

j  Second  vector 
j  operation 

to  be  used  in  dot  product  | 

1 

3.6.8.2.9.27.3  INTERRUPTS 


None. 


3.6.8.2.9.27.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  •  4 

type  My_Elementsl  is  new  FLOAT; 

type  My_Elementsl_Squared  is  new  My_Elementsl; 

type  My_Elements2~  is  new  FLOAT; 

type  My_Elements2j5quared  is  new  My_Elements2 ; 

type  My_Elements3~  is  new  FLOAT; 

•  •  • 

type  My_Indices  is  (i,  j,  k); 

•  •  • 

function  (Left  :  My_Elementsl, 

Right  :  My2Elements2)  return  My_Elements3; 

•  •  • 

function  (Left  :  My_Elementsl, 

Right  :  My_Elementsl)  return  My_Elementsl_Squared; 

•  •  • 

function  (Left  :  My_Elements2, 

Right  :  My2Elements2)  return  My_Elements2_Squared; 

•  •  * 

function  Sqrt  (Input  :  My_Elementsl_Squared)  return  My_Elementsl; 
function  Sqrt  (Input  :  My_Elements2~Squared)  return  My~Elements2; 
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package  V_0pnsl  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Cons trained 
(Vector_Elements  «>  My_Elementsl, 

Vector_Elements_Squared  =>  My~Elementsl_Squared, 

Indices  =>  My~Indices); 

use  V_0pnsl; 

*  •  « 

subtype  Vectorsl  is  V_0pnsl. Vectors; 

•  •  • 

package  V_0pns2  is  new 

General_Vec  tor_Ma  t  r  ix_Algebr  a .  Vec  t  or_0pera  t  i  ons_Cons  t  rained 
(Vector_Elements  =>  My_Elements2, 

Vector-Elements_Squared  =>  My_Elements2_Squared, 

Indices  =>  My_Indices); 

use  V_0pns2; 

•  •  • 

subtype  Vectors2  is  V_0pns2. Vec tors; 


function  Dot_Product  D_P_0pns  is  new 

General_Vector_Matrix  Algebra. 

Dot  Product_OperatIons_Res trie  ted 


Vectorl 
Vector2 
Temp 
•  •  • 
begin 
•  •  • 

Temp 


(LeIt_Elements 
RightElements 
Result_Elements 
Indices 
Left_Vectors 
RightVectors 

s  Vectorsl; 
s  Vectors2; 

:  My_Elements3; 


Dot  Product(Vectorl,  Vector2); 


>  My_Elementsl, 
■>  My_Elements2, 
->  My_Elements3, 
■>  My_Indices, 

->  Vectorsl, 

«>  Vectors2); 


3.6.8.2.9.27.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.27.6  DECOMPOSITION 


None. 


3.6.8.2.9.28  DIAGONAL_FULL_MATRIX_ADD_UNRESTRICTED  (CATALOG  #P195-0) 

This  package  contains  a  function  which  adds  a  diagonal  matrix  to  a  full  matrix, 
returning  the  resultant  full  matrix. 

The  diagonal  matrix  is  represented  as  a  one-dimensional  matrix.  While  this 
part  is  designed  to  expect  a  diagonal  matrix  as  defined  by  the  Diagonal_- 
Matrix_Operations  package.  This  part  can  be  instantiated  using  the  Diagonal  - 
Matricis  type  exported  by  an  instantiated  version  of  the  Diagonal_Matrix_- 
Operations  package  or  with  a  similarly-defined  matrix  declared  by  the  user. 


( 


CAMP  Software  Top  Level  Design  Document 


Page  544 


The  following  exceptions  are  raised  by  this  part: 


|  Name  |  When/Why  Raised 


|  Dimens ion_Error  |  Raised  if  the  lengths  of  the  matrix  indices  are  not 
j  j  equal  to  each  other  and  other  the  length  of  the  diagonal 

I  j  matrix 


3.6.8.2.9.28.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.6.8.2.9.28.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1 

Type 

Description  | 

Elements 

1 

1 

floating 
point  type 

Type  of  elements  in  input  and 
output  arrays 

Diagonal_Range 

1 

1 

integer 

type 

Used  to  dimension  Diagonal_Matrices 

Full_Input_Col_Indices 

1 

1 

discrete 

Used  to  dimension  Full_Input_ 
matrices 

Full_Input_Row_Indices 

1 

1 

discrete 

Used  to  dimension  Full_Input_ 
matrices 

Full_Ou  t  pu  t_Col_Ind ices 

1 

1 

discrete 

Used  to  dimension  Full_Output 
matrices  , 

Ful l_0u  t  pu  t_Row_Indi  ces 

1 

1 

discrete 

Used  to  dimension  Full_Output_ 
matrices 

Diagonal  Matrices 

array 

Data  type  of  diagonal  input  matrix 

Full_Input_Matrices 

1 

1 

array 

Data  type  of  full  input  matrix 

Full_Output_Mat rices 

1 

1 

array 

Data  type  of  full  output  matrix 

3.6.8.2.9.28.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.28.4  INTERRUPTS 


None. 
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3.6.8.2.9.28.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Col_Indicesl  is  (a,  b,  c); 
type  My_Row~Indicesl  is  (x,  y,  z); 
type  My_Col_Indices2  is  (i,  j,  k); 
type  My_Row_Indices2  is  (1,  m,  n); 

•  •  • 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  FLOAT; 


function  (Left  :  My_Elements; 

Right  :  My_Elements)  return  My_Elements_Squared; 

•  •  • 

function  Sqrt  (Input  :  My_Elements_Squared)  return  My_Elements; 


package  V_Opns  XYZ  is  new 

GeneraI_Veetor_Matrix_Algebra.  Vector_Operations_Uncons  trained 
(Vector_Elements  *>  My_Elements, 

Vector_Elements_Squared  ■>  My~Elements_Squared, 

Indices  «>  My_Row_Indicesl); 

use  V_Opns_XYZ; 

•  •  • 

subtype- Vectors_XYZ  is  V_Opns_XYZ.Vectors(My_Row_Indicesl) ; 

•  •  • 

package  V_Opns  ABC  is  new 

GeneraT_Vector_Matrix_Algebra.Vector_Operations_Uncons  trained 
(Vector_Elements  «>  My_Elements, 

Vector_Elements_Squared  *>  My_Elements_Squared, 

Indices  ~  ->  My~Col_Indicesl) ; 

use  V_Opns_ABC; 


subtype  Vectors_ABC  is  V_Opns_ABC.Vectors(My_Col_Indices) \ 


package  Diagonal_M_0pns  is  new 

General_Vector_Matrix_Algebra. 
Diagonal  Matrix  Operations 


(Elements 
Col_Indices 
Row_Indices 
Col_Slices 
Row_Slices 

use  Diagonal_M_Opns; 


■>  My_Elements, 

«>  My_Col_Indicesl, 
■>  My-Row~Indicesl, 
«>  Vectors_XYZ, 

■>  Vectors  ABC); 


package  M_0pns  is  new 

General_Vector  Matrix  Algebra. Matrix_Operations_Unconstrained 
(Col_Indices  =>  My_Col_Indices2 , 

Elements  =>  My_Elements, 

Row_Indices  =>  My_Rov_Indices2) ; 

use  M_0pns; 

•  •  • 

subtype  Matrices  is  M_0pns.Matrices(My_Rov_Indices2,  My_Col_Indices2) ; 


package  D  F  M_Add  is  new 
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General_Vector_Matrix_Algebra.Diagonal_Full_Matrix_Add_Unres  trie  ted 
(Elements  =>  My_Elements, 

Diagonal_Range  =>  D_Opns.Diagonal_Range, 

Full_Input_Col_Indices  =>  My_Col_Indices2, 

Full~Input~Row  Indices  =>  My_Rov~Indices2, 
Full_Output_CoI_Indices  «=>  My~Col_Indices2, 
Full~Output_Rov_Indices  =>  My_Row_Indices2, 

Diagcnal_Matrices  *>  D_Opns.Diagonal_Matrices, 

Full_Input_Matrices  =>  Matrices, 

Full_Output_Matrices  =>  Matrices); 

use  D_F_M_Add ; 

Diag_Matrix  :  Diagonal_M_Opns.Diagonal_Matrices ; 

FullMatrix  :  Matrices!  - 

•  •  • 

begin 
•  •  • 

Full_Matrix  :«  Diag_Matrix  +  Full_Matrix; 


3.6.8.2.9.28.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.8.2.9.28.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description  | 

|  "+" 

1 

|  function 

1 

|  Adds  an  m  x  m  full  matrix  to  an  m-element  diagonal  | 

matrix  i! 

The  following  table 

lists  the  allocation  of  catalog  numbers  to  this  part: 

|  Name  | 

Catalog  #  | 

1  ! 

P536-0  | 

3.6.8.2.9.28.8  PART  DESIGN 

None. 


3.6.8.2.9.29  DIAGONAL_FULL_MATRIX_ADD_RESTRICTED  (CATALOG  #P196-0). 

This  function  adds  a  diagonal  matrix  to  a  full  matrix,  returning  the  resultant 
full  matrix. 
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The  diagonal  matrix  is  represented  as  a  one-dimensional  matrix.  This  part  can 
be  instantiated  using  the  DiagonalMatrices  type  exported  by  an  instantiated 
version  of  the  DiagonalMatrixOperations  package  or  with  a  similarly-defined 
matrix  declared  by  the  user. 


3.6.8.2.9.29.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R212. 


3.6.8.2.9.29.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


Name 

1  Type 

1 

Description  I 

Elements 

|  floating 

1 

Type  of  elements  in  input  and 

j  point  type 

1 

output  arrays 

Diagonal  Range 

1  integer 

1 

Used  to  dimension  Diagonal_Matrices j 

type 

1 

Indices 

|  discrete 

1 

Used  to  dimension  input  and  output  j 

type 

1 

matrices 

Diagonal  Matrices 

|  array 

1 

Data  type  of  diagonal  input  matrix  | 

Full  Matrices 

|  array 

1 

Data  type  of  full  input  and  output  j 

1 

1 

matrices  1 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

1  Type 

|  Mode 

|  Description 

1 

|  D  Matrix  | 

|  Diagonal  Matrices 

1  In 

|  Diagonal  matrix  to  be 

used  in  the  | 

|  " 

I 

1 

j  addition  operation 

1 

j  F  Matrix 

|  Full  Matrices 

1  In 

j  Full  matrix  to  beused 

in  the 

1  " 

1 

1 

j  addition  operation 

1 

J: 


S 


% 

; 

> 

:• 

A 


*. 

•- 


3.6.8.2.9.29.3  INTERRUPTS 
None. 


* 


3.6.8.2.9.29.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part; 

with  General  Vector  Matrix  Algebra; 


» 

S 


■v 
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type  My  Indices  is  (a,  b,  c); 

«  •  • 

type  My_Elements  is  new  FLOAT; 

type  My_Elements_Squared  is  new  FLOAT; 

function  (Left  s  My_Elements; 

Right  :  My_Elements)  return  My_Elements_Squared; 

function  Sqrt  (Input  :  My_Elements_Squared)  return  My_Elements; 

•  •  • 

package  V_Opns  is  new 

General_Vector_Matrix_Algebra.Vector_Operations_Cons  trained 
(Vector_Elements  “  «>  My_Eliments, 

Vector_Elements  Squared  *>  My_Elements_Squared, 

Indices  «>  My_Indices); 

use  VOpns ; 

«  •  • 

subtype  My_Vectors  is  V_Opns. Vectors; 

•  •  • 

package  Diagonal_M_Opns  is  new 

General_Vector_Matrix_Algebra . 

Diagonal_Matrix_Operations 

(Elements  ~  ->  My_Elements, 

Col_Indices  «>  My_Indices, 

Row_Indices  ■>  My “Indices, 

Col_Slices  ■>  My_Vectors, 

Row_Slices  «>  My_Vectors); 

use  Diagonal_M_Opns; 

•  •  • 

package  MOpns  is  new 

General_Vector_Matrix_Algebra.Matrix_Operations_Cons  trained 
(Col_Indices  «>  My_Indices, 

Elements  «>  My“Elements, 

Row_Indices  =>  My_Indices); 

use  M_Opns; 

•  •  t 

subtype  Matrices  is  M_Opns. Mat rices; 

•  •  • 

functin  "+"  is  new 

General_Vector  Matrix  Algebra. 

Diagonal_FuIl_MatrIx_Add_Restricted 
(Elements  •=>  My  Elements, 

Diagonal_Range  =>  D_Opns.Diagonal_Range, 

Indices  =>  My_Indices, 

Diagonal_Matrices  =>  D_Opns.Diagonal_Matrices, 

Full_Matrices  =>  Matrices); 

t  •  • 

Diag_Matrix  :  Diagonal  M_Opns.Diagonal_Matrices; 

FullMatrix  s  Matrices? 

•  •  • 
begin 
•  •  • 

Full_Matrix  :=  Diag_Matrix  +  Full_Matrix; 
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3.6.8.2.9.29.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.2.9.29.6  DECOMPOSITION 
None. 


3.6.8.2.9.30  ABA_TRANS_DYNAM_SPARSE_MATRIX_SQ_MATRIX  (CATALOG  #P1055-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
dynamically  sparse  matrix  (m  x  n)  and  a  square  (n  x  n)  matrix,  yielding  a 
square  matrix.  The  first  multiply  (A*B)  is  constrained  and  the  second  (AB  * 
transpose  A)  is  restricted. 


3.6.8.2.9.30.1  REQUIREMENTS  ALLOCATION 
N/A. 


3.6.8.2.9.30.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

A_Elements 

floating 
point  type 

Type  of  element  in  the  dynamically  sparse  input 
matrix 

B_Elements 

floating 
point  type 

Type  of  element  in  the  square  input  matrix 

C  Elements 

floating 
point  type 

Type  of  element  in  the  output  vector 

M  Indices 

discrete 

Used  to  dimension  the  1st  dimension  of  the 

type 

sparse  input  matrix 

N  Indices 

discrete 

Used  to  dimension  the  2nd  dimension  of  the 

type 

sparse  matrix  and  both  dimensions  of  the 
square  matrix 

A_Matrices 

array 

Data  type  of  the  dynamically  sparse  input 
matrix 

B_Matrices 

array 

Data  type  of  the  square  input  matrix 

C  Matrices 

array 

Data  type  of  the  output  matrix 

Subprograms : 
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The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

1 

function 

Function  defining  the  operation  A_Elements  *  B_Elements  | 
:«  C  Elements  j 

|  ..*« 

1 

function 

Function  defining  the  operation  C_Elements  *  A  Elements  j 
:«  C_Elements 

3.6.8.2.9.30.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.30.4  INTERRUPTS 


None. 


3.6.8.2.9.30.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


wi  th  General_Vector_Matr ix_Algebra ; 

•  •  • 

type  MyElementsA  is  new  FLOAT; 
type  My~ElementsB  is  new  FLOAT; 
type  My~ElementsC  is  new  FLOAT; 

•  •  • 

type  My_M_Indices  is  new  INTEGER  1..3; 
type  My_N_Indices  is  new  INTEGER  1..4; 

type  My_A_Matrices  is  array(  My_M_Indices,  My_N_Indices  )  of  My_ElementsA; 

type  My_B_Matrices  is  array(  My~N~Indices,  My~N~Indices  )  of  My~ElementsB; 

type  My~C_Matrices  is  array(  My~M~Indices,  My_M~Indices  )  of  My_ElementsC; 

•  •  • 

function  AB_Multiply 

(Left  :  My_ElementsA, 

Right  :  My_ElementsB)  return  My_ElementsC; 

•  •  • 

function  CA_Multiply 

"(Left  :  My_ElementsC, 

Right  :  MyJSlementsC)  return  My_ElementsC; 


package  My_ABA  Transpose  is  new 

GeneraI_Vector_Matrix_Algebra. 

ABA  Trans  Dynam_Sparse_Matrix_Sq_Matrix 
X  A_Elements  =>  My_ElementsA, 
B_Elements 
C_Elements 
M~Indices 
N~Indices 
A~Mat rices 


=>  My_ElementsB, 
=>  My_ElementsC, 
■>  My~M_Indices, 
My~N_Indices, 
My~A~Matrices, 


=> 

=> 
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B_  Matrices 
C*  Matrices 


«>  My_B_Matrices, 
=>  My  C  Matrices, 
=>  AB~Multiply, 

=>  CA_Multiply  ); 


use  My_ABA_Transpose; 
•  •  • 

Matrixl  :  A_Matrices; 
Matrix2  :  B_Matrices; 
Matrix3  :  C  Matrices; 


begin 
•  •  • 

Matrix3  :*  My_ABA_Transpose(  Left  =>  Matrixl, 

Right  =>  Matrix2  ); 


3.6.8.2.9.30.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.8.2.9.30.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

|  Type  |  Description  | 

ABA  Transpose  | 
” 

1 

function  |  Multiplies  an  m  x  n  dynamically  sparse  matrix  | 
j  *  an  n  x  n  square  matrix  and  multiplies  that  j 

|  product  by  the  transpose  of  the  m  x  n  matrix  | 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 

|  Name 

|  Catalog  i  j 

|  ABA_Transpose 

|  P1056-0  j 

3.6.8.2.9.30.8  PART  DESIGN 


None. 


3.6.8.2.9.31  AB A_TRAN S_VECT0R_SQ_MATRI X  (CATALOG  #P1057-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 
vector  (1  x  m)  and  a  square  (m  x  m)  matrix,  yielding  a  scalar  value. 
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3.6.8.2.9.31.1  REQUIREMENTS  ALLOCATION 
N/A. 


3.6.8.2.9.31.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

Vector_ 

Elements 

floating 
point  type 

Type  of  element  in  the  input  vector. 

Matrix_ 

Elements 

floating 
point  type 

Type  of  element  in  the  square  input  matrix. 

Scalars 

floating 
point  type 

Type  of  element  in  the  output  scalar 

Indices 

discrete 

type 

Used  to  dimension  the  input  vector  and  both 
dimensions  of  the  input  matrix 

Vectors 

array 

Data  type  of  the  input  vector 

Matrices 

array 

Data  type  of  the  square  input  matrix 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

| 

1 

function 

Function  defining  the  operation  Vector  Elements  *  | 

Matrix  Elements  Vector  Elements  j 

j 

1 

function 

Function  defining  the  operation  Vector_Elements  *  j 

Vector_Elements  :■  Scalars 

3.6.8.2.9.31.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.31.4  INTERRUPTS 


None. 


r 


-his  REPORT  HAS  BEEN  DELIMITED 
AND  CLEARED  FOR  PUBLIC  RELIASE 

UNDER  DOD  DIRECTIVE  5200,20  AND 
Nu  RESTRICTIONS  ARE  IMPOSED  UPON 
its  USE  AND  DISCLOSURE, 

DISTRIBUTION  STATEMENT  A 

$ 

APPROVED  FOR  PUBLIC  RELIASE j 
DISTRIBUTION  UNLIMITED, 
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3.6.8.2.9.31.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

wi th  General_Vector_Matr ix_Algebra ; 

•  •  • 

type  My_Vector_Elements  is  new  FLOAT; 
type  My_Matrix_Elements  is  new  FLOAT; 
type  My_Scalars  is  new  FLOAT; 

type  My_Indices  is  new  INTEGER  1..3; 

•  •  • 

type  My_Matrices  is  array(  My_Indices,  My_Indices  )  of  My_Matrix_Elements; 
type  My_Vectors  is  array(  My_Indices  )  of-My_Vector_Elements; 

•  •  • 

function  AB_Multiply 

(Left  :  My_Vector_Elements, 

Right  :  My_Matricis  )  return  My_Vector_Elements; 

•  •  • 

function  CA_Multiply 

"(Left  :  My_Vector_Elements, 

Right  :  My_Vector~Elements  )  return  My_Scalars; 

•  •  ■ 

package  My_ABA  Transpose  is  new 

GeneraT_Vector_Matrix_Algebra. 

ABA  Trans_Vector_Sq_Matrix 

X  Vector_Elements  ■>  MyVectorElements, 

Matrix_Elements  «>  My_Matrix~Elements, 

Scalars  ■>  My_Scalars , 

Indices  ->  Mylndices, 

Vectors  ■>  My_Vectors, 

Matrices  ->  My'Matrices, 

->  AB“Multiply, 

->  CA~Multiply  ); 

use  My  ABAJTranspose; 

•  •  * 

My_Vector  :  My_Vectors; 

My_Matrix  :  My_Matrices; 

My_Scalar  :  My_Scalars; 

•  •  • 
begin 
•  •  • 

My  Scalar  :=  My_ABA_Transpose(  Left  =>  My_Vector, 

Right  =>  My_Matrix  ); 


3.6.8.2.9.31.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.31.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type 

|  Description  | 

|  ABA  Transpose  |  function 

j  Multiplies  an  1  x  m  vector  *  a  square  matrix  | 

1 

1 

!  (m  x  m)  and  multiplies  the  resultant  vector  ‘ 

1 

1 

j  (1  x  m)  times  the  transpose  of  the  original  j 

I 

1 

|  vector  (m  x  1)  yielding  a  scalar  (lxl)  j 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 

|  Name 

|  Catalog  #  | 

|  ABA  Transpose 

|  058-0  I 

3.6.8.2.9.31.8 

PART  DESIGN 

None. 

3.6.8.2.9.32 

ABATRANSVECTORSCALAR  (CATALOG  #P1059-0) 

This  package  contains  a  function  which  does  an  ABA  transpose  multiply  on  a 

vector  (m  x  1)  and  a  scalar 

value,  yielding  a  square  (m  x  m)  matrix. 

3.6.8.2.9.32.1 

REQUIREMENTS  ALLOCATION 

N/A. 

3.6.8.2.9.32.2 

INPUT/OUTPUT 

GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  | 

Type 

Description  | 

|  Vector  | 

floating 

Type  of  element  in  the  input  vector. 

j  Elements  j 

point  type 

|  Matrix  I 

floating 

Type  of  element  in  the  square  output  matrix. 

|  Elements  j 

point  type 

* 

|  Scalars  j 

floating 

Type  of  element  in  the  output  scalar 

i  1 

point  type 

|  Indices  | 

discrete 

Used  to  dimension  the  input  vector  and  the 

1  1 

type 

square  output  matrix 

|  Vectors 

array 

Data  type  of  the  input  vector 

j  Matrices 

array 

Data  type  of  the  square  output  matrix 

CAMP  Software  Top  Level  Design  Document 


Page  555 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

Type 

Description  | 

function 

Function  defining  the  operation  Vector  Elements  *  | 

Scalars  :=  Vector  Elements  j 

»*» 

function 

Function  defining  the  operation  Vector_Elements  *  j 

Vector_Elements  Matrix_Elements  | 

3.6.8.2.9.32.3  LOCAL  ENTITIES 


None. 


3.6.8.2.9.32.4  INTERRUPTS 


None. 


3.6.8.2.9.32.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vector_Matrix_Algebra; 

•  •  • 

type  My_Vector_Elements  is  new  FLOAT; 
type  My_Matrix_Elements  is  new  FLOAT; 
type  MyScalars  is  new  FLOAT; 

•  •  • 

type  My_Indices  is  new  INTEGER  1..3; 

•  •  • 

type  My_Matrices  is  array(  My_Indices,  My_Indices  )  of  My_Matrix_Elements; 
type  My_Vectors  is  array(  My_Indices  )  of-My_Vector_Elements; 

•  •  • 

function  AB_Multiply 

(Left  :  My_Vector_Elements, 

Right  :  MyScalars  )  return  My_Vector_Elements; 

function  CA_Multiply 

"(Left  :  My_Vector_Elements, 

Right  :  My_Vector_Elements  )  return  My_Matrix_Elements; 

•  •  • 

package  My_ABA  Transpose  is  new 

GeneraI_Vector_Matrix_Algebra. 

ABA_Trans_Vector_Scalar 

T  Vector_Elements  =>  My_Vector_Elements, 

Matrix_Elements  w>  My_Matrix_Elements, 

Scalari  *>  My_Scalars, 

Indices  =>  My_Indices, 

Vectors  =>  My_Vectors, 

Matrices  *>  My~Matrices, 
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->  AB_Multiply, 

"*"  =>  CA_Multiply  ); 

use  My_ABA_Transpose; 

•  •  • 

My_Vector  :  My_Vectors; 

My_Matrix  :  My”Matrices; 

My_Scalar  :  My~Scalars; 

•  •  • 

begin 
•  •  • 

MyMatrix  :«  My_ABA_Transpose(  Left  =>  My_Vector, 

Right  ■>  My_Scalar  ); 


3.6.8.2.9.32.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.2.9.32.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type  |  Description  | 

ABA  Transpose 

function  |  Multiplies  an  it  x  1  vector  *  a  scalar  and 

multiplies  the  resultant  m  x  1  vector  times 

j  the  transpose  (1  x  m)  of  the  original  vector, 

j  yielding  an  m  x  m  square  matrix. 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  ABA_Transpose 

|  P1060-0  | 

3.6.8.2.9.32.8  PART  DESIGN 


None. 


3.6.8.2.9.33  COLUMN_MATRIXj;PERATIONS  (CATALOG  IP1061-0) 

This  package  defines  a  column  matrix  which  contains  a  column  vector  which  is 
set  on  one  of  the  columns  of  the  matrix  and  a  diagonal,  which  can  only  have  the 
values  of  1  or  0  on  the  diagonal.  It  provides  operations  on  that  type.  See 
the  decomposition  section  for  a  list  of  the  operations  provided. 
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3.6.8.2.9.33.1  REQUIREMENTS  ALLOCATION 
N/A. 


3.6.8.2.9.33.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1 

Type 

|  Description 

1 

|  Vector 

1 

floating 

1  Type  of  element  in  the  column  matrix's  column 

j  Elements 

1 

point  type  vector 

j  Indices 

1 

discrete 

|  Used  to  dimension  the  column  matrix  and  the 

1 

1 

type 

j  vector  in  the  column  matrix 

|  Vectors 

1 

array 

j  Data  type  of  the  vector  in  the  column  matrix 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Data  objects: 

The  following  chart  describes  the  data  objects  exported  by  this  part: 

|  Name 

1 

Type  | 

Description 

1 

Column 

1 

record  | 

Record  in  which  the  following  information 

1 

Matrices 

1 

1 

describing  the  column  matrix  is  kept: 

1 

Col 

1 

Vectors  | 

The  column  vector 

1 

Vector 

1 

1 

1 

Diagonal 

1 

BOOLEAN  j 

A  BOOLEAN  value  which  tells  whether  the  diagonal 

1 

1 

1 

is  an  identity  matrix  (contains  l's)  or  is  0's 

1 

Active 

1 

Indices  | 

An  index  which  identifies  the  column  number  where 

1 

Column 

1 

1 

the  column  vector  is  to  be  set 

1 

3.6.8.2.9.33.3  LOCAL  ENTITIES 
None. 

3. 6. 8. 2. 9. 33. A  INTERRUPTS 


None. 
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3.6.8.2.9.33.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Vec tor_Matr ix_Algebra ; 

type  My_Vector_Elements  is  new  FLOAT; 

•  •  • 

type  My_Indices  is  new  INTEGER  1..3; 

type  My_Vectors  is  array(  My_Indices  )  of  My_Vector_Elements; 

package  My_Col  Matrix_Opns  is  new 

GeneraT_Vector  Matrix_Algebra. 

ColumnMatrlx  Operations 

(  Vector_Elements  =>  My_Vector_Elements, 

Indicel  =>  Mylndices, 

Vectors  =>  MyVectors  ); 

use  My_Col_Matrix_Opns; 

•  •  • 

Vector  :  My_Vectors; 

Col_Matrix  :  My_Col  Matrix_Opns.Column_Matrices; 

Index  :  My_lndlces; 

•  •  • 

begin 
•  •  • 

—  assign  values  to  vector  and  index 
•  •  • 

Col  Matrix  :»  Set_Column_Vith_Zeroes_On_Diagonal 
T  Column  “  *>  Vector; 

Active  Column  *>  Index  ); 


3.6.8.2.9.33.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.8.2.9.33.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type 

Description  | 

Set  Column_Vith_ 
Zeroes_On_Diagonal 

|  function 

Sets  (assigns)  the  values  of  the  input 
vector  to  the  column  vector,  designates 
the  active  column  in  the  matrix,  and 
sets  the  diagonal  BOOLEAN  to  false 

Subtract_From 

Identity 

j  function 

Subtracts  the  input  column  matrix  from 
the  identity  matrix  (l's  on  the  diagonal) 

ABA_Transpose 

j  generic 
j  function 

Does  an  A  *  B  *  A  Transpose  operation  on  a 
Column  matrix  and  a  square  matrix 

ABA_Symm_Transpose 

j  generic 
j  function 

Does  an  (A  *  B)  *  A  Transpose  operation 
on  a  Column  matrix  and  a  symmetric  full 
storage  matrix 

The  following  table  lists  the  allocation  of  catalog  numbers  to  this  part: 


|  Name 

|  Catalog  #  | 

|  Set  Column  Diagonal 

|  P1062-0  | 

j  Subtract  From  Identity 

!  P1063-0  j 

j  ABA  Transpose 

|  P1064-0  1 

j  ABA_Sym_Trans 

|  P1065-0  | 

3.6.8.2.9.33.8  PART  DESIGN 


None. 
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package  General_Vector_Matrix_Algebra  is 

Dimens ion_Error  :  exception; 

pragma  PAGE; 
generic 

type  Vector_Elements  is  digits  <>; 

type  Vector_Elements_Squared  is  digits  <>; 
type  Indices  is  (<>); 

with  function  "*"  (Left  :  Vector_Elements; 

Right  :  Vector_Elements) 
return  Vector_Elements_Squared  is  <>; 
with  function  Sqrt  (Input  :  Vector  Elements_Squared) 

return  Vector  Elements  is  <>; 
package  Vector_Operations_UnconstraIned  is 

type  Vectors  is  array  (Indices  range  <>)  of  Vector_Elements; 

function  (Left  s  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  Dot_Product  (Left  :  Vectors; 

Right  s  Vectors)  return  VectorElementsSquared; 

function  Vector  Length  (Input  :  Vectors)  return  Vector  Elements; 

end  Vector_Operations_Unconstrained; 

pragma  PAGE; 
generic 

type  Vector_Elements  is  digits  <>; 

type  Vector_Elements_Squared  is  digits  <>; 
type  Indices  is  (<>); 

with  function  "*"  (Left  :  Vector_Elements; 

Right  :  Vector  Elements) 
return  Vector_Elements_Squared  is  <>; 
with  function  Sqrt  (Input  :  Vector  Elements_Squared) 

return  Vector_Elements  is  <>; 
package  Vector_Operations_Constrained  is 

type  Vectors  is  array  (Indices)  of  Vector_Elements; 

function  "+"  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  (Left  :  Vectors; 

Right  :  Vectors)  return  Vectors; 

function  Dot_Product  (Left  :  Vectors; 

Right  s  Vectors)  return  Vector_Elements_Squared; 

function  Vector_Length  (Input  :  Vectors)  return  Vector_Elements; 

end  Vector_Operations_Constrained; 
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pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 
type  Col_Indices  is  (<>); 
type  Rov_Indices  is  (<>); 
package  Matrix_Operations_Unconstrained  is 

type  Matrices  is  array  (Rov_Indices  range  <>, 

Col_Indices  range  <>)  of  Elements 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  "+"  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices; 

function  (Matrix  s  Matrices; 

Subtrahend  :  Elements)  return  Matrices; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices); 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices); 

function  (Left  s  Matrices; 

Right  :  Matrices)  return  Matrices; 

end  MatrixOperationsUnconstrained; 

pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 
type  Col_Indices  is  (<>); 

type  Row_Indices  is  (<>);  , 

package  Matrix_Operations_Constrained  is 

type  Matrices  is  array  (Rov_Indices, 

Col~Indices)  of  Elements; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  "+"  (Matrix  :  Matrices; 

Addend  :  Elements)  return  Matrices; 

function  (Matrix  :  Matrices; 

Subtrahend  :  Elements)  return  Matrices; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices); 

procedure  Set_To_Zero  Matrix  (Matrix  :  out  Matrices); 
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end  Mat rix_Operations_Cons trained; 

pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 
type  Col_Indices  is  (<>); 
type  Rov_Indices  is  (<>); 

package  Dynamically_Sparse_Matrix_Operations_Unconstrained  is 

type  Matrices  is  array  (Rov_Indices  range  <>, 

Col~Indices  range  <>)  of  Elements; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices); 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices); 

function  Add_To_Identity  (Input  s  Matrices)  return  Matrices; 

function  Subtract_From_Identity  (Input  s  Matrices)  return  Matrices; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  s  Matrices; 

Right  :  Matrices)  return  Matrices; 

end  Dynamically_Sparse_Matrix_Operations_Uncons  trained; 

pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 
type  Col_Indices  is  (<>); 
type  Rov_Indices  is  (<>); 

package  Dynamically_Sparse_Matrix_Operations_Constrained  is 

type  Matrices  is  array  (Rov_Indices,  Col_Indices)  of  Elements; 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices); 

procedure  Set_To_Zero_Matrix  (Matrix  ;  out  Matrices); 

function  Add_To_Identity  (Input  s  Matrices)  return  Matrices; 

function  Subtract_From_Identity  (Input  :  Matrices)  return  Matrices; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

end  Dynamically_Sparse_Matrix_Operations_Cons trained; 

pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 
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type  Col_Indices  is  (<>); 
type  Rov_Indices  is  (<>); 

type  Col  Slices  is  array  (Rov_Indices)  of  Elements; 
type  Rov~Slices  is  array  (Col_Indices)  of  Elements; 
package  Symmetric_Half_Storage_Matrix_Operations  is 

Entry  Count  :  constant  POSITIVE 

:«  Rov_Sl ices'  LENGTH  *  (Rov_Sl ices'  LENGTH  +  1)  /  2; 

type  Matrices  is  array  (1. .Entry _Count)  of  Elements; 

procedure  Initialize  (Row_Slice  :  in  Rov_Slices; 

Row-  r  in  Row_Indices; 

Matrix  :  out  Matrices); 

function  Identity_Matrix  return  Matrices; 

function  Zero_Matrix  return  Matrices; 

procedure  Change_Element  (New_Value  :  in  Elements; 

Row  :  in  Rov_Indices; 

COL  :  in  Col_Indices; 

Matrix  :  out  Matrices); 

function  Retrieve_Element  (Matrix  :  Matrices; 

Row  s  Rowlndices; 

COL  :  Col-Indices)  return  Elements; 

function  RowSlice  (Matrix  s  Matrices; 

Row  :  Row_Indices)  return  Row_Slices; 

function  Column_Slice  (Matrix  :  Matrices; 

COL  s  Col_Indices)  return  Col_Slices; 

function  Add_To_Identity  (Input  :  Matrices)  return  Matrices; 

function  Subtract_From_Identity  (Input  :  Matrices)  return  Matrices; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

end  Symmetric_Half_Storage_Matrix_Operations; 

pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 

type  Col  lndices  is  (<>); 

type  RovJInd ices  is  (<>); 

package  Symmetric_Full_Storage_Matrix_Operations_Uncons’t  rained  is 

Invalid_Index  :  exception; 

type  Matrices  is  array  (Rov_Indices  range  <>, 

Col-Indices  range  <>)  of  Elements; 
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procedure  Change_Element  (Nev_Value  :  in  Elements; 

Row-  :  in  Row_Indices; 

COL  :  in  Col_Indices; 

Matrix  :  in  out  Matrices); 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices); 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices); 

function  Add_To_Identity  (Input  :  Matrices)  return  Matrices; 

function  Subtract  Fromldentity  (Input  :  Matrices)  return  Matrices; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

end  Symme t r i c_Ful  1_S t orage_Ma t r i x_Opera t i ons_Uncons  t rained ; 

pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 
type  Col_Indices  is  (<>); 
type  Row“lndices  is  (<>); 

package  Symiiietric_Full_Storage_Matrix_Operations_Constrained  is 

type  Matrices  is  array  (Rov_Indices,  Col_Indices)  of  Elements; 

procedure  Change_Element  (Nev_Value  :  in  Elements; 

Row  :  in  Row_Indices; 

COL  :  in  Col_Indices; 

Matrix  :  in  out  Matrices); 

procedure  Set_To_Identity_Matrix  (Matrix  :  out  Matrices); 

procedure  Set_To_Zero_Matrix  (Matrix  :  out  Matrices); 

function  Add_To_Identity  (Input  :  Matrices)  return  Matrices; 

function  Subtract_From_Identity  (Input  :  Matrices)  return  Matrices; 

function  "+"  (Left  :  Matrices; 

Right  :  Matrices)  return  Matrices; 

function  (Left  s  Matrices; 

Right  :  Matrices)  return  Matrices; 

end  Symmetric_Full_Storage_Matrix_Operations_Constrained; 

pragma  PAGE ; 
generic 

type  Elements  is  digits  <>; 

type  Col_Indices  is  (<>); 

type  Row  Indices  is  (<>); 
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type  ColSlices  is  array  (Rowlndices)  of  Elements; 

type  Rov_Slices  is  array  (Col_Indices)  of  Elements; 

package  Diagonal_Matrix_Operations  is 

Invalidlndex  :  exception; 

Entry_Count  :  constant  POSITIVE  :=  Rov_Slices' LENGTH; 
subtype  Diagonal_Range  is  POSITIVE  range  1. .Entry_Count; 
type  Diagonal_Matrices  is  array  (Diagonal_Range)  of  Elements; 
function  Identity_Matrix  return  Diagonal_Matrices; 


function  Zero_Matrix  return  Diagonal_Matrices; 


procedure  Change_Element  (Nev_Value  :  in  Elements; 

Row-  :  in  Row_Indices; 

COL  :  in  Col_Indices; 

Matrix  :  out  Diagonal_Matrices) ; 


function  Retrieve  Element 


(Matrix 

Row 

COL 


:  Diagonal_Matrices; 

:  Row_Indices; 

:  Col~Indices)  return  Elements; 


function  Row_Slice  (Matrix  :  Diagonal_Matrices; 

Row  :  Rowlndices)  return  RowSlices; 

function  Column_Slice  (Matrix  :  DiagonalMa trices; 

COL  :  Col_Indices)  return  Col_Slices; 

function  Add_To_Identity  (Input  :  Diagonal_Matrices) 

return  Diagonal_Matrices; 

function  Subtract_From  Identity  (Input  :  Diagonal_Matrices) 

return  Diagonal_Matrices; 

function  "+"  (Left  :  Diagonal_Matrices; 

Right  :  Diagonal~Matrices)  return  Diagonal_Matrices; 

function  (Left  :  Diagonal_Matrices; 

Right  s  Diagonal~Matrices)  return  Diagonal_Matrices; 

end  Diagonal_Matrix_Operations; 


pragma  PAGE; 
generic 

type  Elementsl  is  digits  <>; 
type  Elements2  is  digits  <>; 
type  Scalars  is  digits  <>; 
type  Indicesl  is  (<>); 
type  Indices2  is  (<>); 

type  Vectorsl  is  array( Indicesl  range  <>)  of  Elementsl; 
type  Vectors2  is  array(Indices2  range  <>)  of  Elements2; 
with  function  (Left  :  Elements2; 

Right  :  Scalars)  return  Elementsl  is  <>; 
with  function  "/"  (Left  :  Elementsl; 
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Right  :  Scalars)  return  Elements2  is  <>; 
package  Vec*or_Scalar_Operations_Unconstrained  is 

function  (Vector  :  Vectors2; 

Multiplier  :  Scalars)  return  Vectorsl; 

function  "/"  (Vector  :  Vectorsl; 

Divisor  :  Scalars)  return  Vectors2; 


end  Vector_Scalar_Operations_Unconstrained; 

pragma  PAGE; 
generic 

type  Elementsl  is  digits  <>; 
type  Elements2  is  digits  <>; 
type  Scalars  is  digits  <>; 
type  Indices  is  (<>); 

type  Vectorsl  is  array (Indices)  of  Elementsl; 
type  Vectors2  is  array( Indices)  of  Elements2; 
with  function  "*"  (Left  :  Elements2; 

Right  :  Scalars)  return  Elementsl  is  <>; 
vith  function  "/"  (Left  :  Elementsl; 

Right  :  Scalars)  return  Elements2  is  <>; 
package  Vector_Scalar_Operations_Constrained  is 

function  (Vector  :  Vectors2; 

Multiplier  :  Scalars)  return  Vectorsl; 

function  "/"  (Vector  s  Vectorsl; 

Divisor  :  Scalars)  return  Vectors2; 


end  Vec t or_Scalar_Opera t i ons_Cons t rained ; 


pragma  PAGE; 
generic 

type  Elementsl 
type  Elements2 
type  Scalars 
type  Col_Indicesl 
type  Rov_Indicesl 
type  Col_Indices2 
type  Rov_Indices2 
type  Matricesl 

type  Matrices2 

with  function 


is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  (<>); 
is  (<>) ; 
is  (<>) ; 
is  (<>); 

is  array  (Rov_Indicesl  range  <>, 

Col~Indicesl  range  <>)  of  Elementsl; 
is  array  (Row  Indices2  range  <>, 

Col~Indices2  range  <>)  of  Elements2; 


(Left 

Right 

(Left 

Right 


with  function  "/" 
package  Matrix  Scalar  Operations  Unconstrained  is 


Elementsl; 

Scalars)  return  Elements2  is  <>; 
Elements2; 

Scalars)  return  Elementsl  is  <>; 


function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2; 

function  "/"  (Matrix  :  Matrices2; 

Divisor  :  Scalars)  return  Matricesl; 
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end  Mat rix_Scalar_Operations_Uncons trained; 

pragma  PAGE; 
generic 

type  Elementsl  is  digits  <>; 
type  Elements2  is  digits  <>; 
type  Scalars  is  digits  <>; 

type  Col_Indices  is  (<>); 
type  Rov_Indices  is  (<>); 

type  Matricesl  is  array  (Rov_Indices,  Col_Indices)  of  Elementsl; 

type  Matrices2  is  array  (Rov~Indices,  Col~Indices)  of  Elements2; 

with  function  (Left  :  Elementsl; 

Right  :  Scalars)  return  Elements2  is  <>; 
with  function  "/"  (Left  :  Elements2; 

Right  :  Scalars)  return  Elementsl  is  <>; 
package  Matrix_Scalar_Operations_Constrained  is 

function  (Matrix  :  Matricesl; 

Multiplier  :  Scalars)  return  Matrices2; 

function  "/"  (Matrix  s  Matrices2; 

Divisor  :  Scalars)  return  Matricesl; 

end  MatrixScalarOperationsConstrained; 

pragma  PAGE; 
generic 

type  Elementsl  is  digits  <>; 

type  Elements2  is  digits  <>; 

type  Scalars  is  digits  <>; 

type  Diagonal_Rangel  is  range  <>; 

type  Diagonal_Range2  is  range  <>; 

type  Diagonal_Matricesl  is  array(Diagonal_Rangel)  of  Elementsl; 
type  Diagonal_Matrices2  is  array(Diagonal_Range2)  of  Elements2; 
with  function  (Left  :  Elementsl; 

Right  :  Scalars)  return  Elements2  is  <>; 
with  function  "/"  (Left  :  Elements2; 

Right  :  Scalars)  return  Elementsl  is  <>; 
package  Diagonal_Matrix_Scalar_Operations  is 

function  (Matrix  :  Diagonal_Matricesl ; 

Multiplier  :  Scalars)  return  Diagonal_Matrices2; 

function  "/"  (Matrix  :  Diagonal  Matrices2; 

Divisor.;  Scalars )~return  Diagonal_Matricesl; 

end  Diagonal_Matrix_Scalar_Operations; 

pragma  PAGE; 
generic 

type  Matrix_Elements  is  digits  <>; 

type  Input_Vector_Elements  is  digits  <>; 

type  Output  Vector_Elements  is  digits  <>; 
type  Col_In3ices  is  (<>); 

type  Rov~Indices  is  (<>); 

type  Input_Vector_Indices  is  (<>); 
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type  Output_Vector_Indices  is  (<>); 
type  Input_Matrices  is  array  (Rov_Indices, 

Col_Indices)  of  Matrix_Elements; 

type  Input_Vectors  is  array  (Input_Vector  Indices)  of  Input_Vector_Elements; 
type  Output_Vectors  is  array  (Output_Vector_Indices)  of  Output_Vector_Elements; 
with  function  (Left  :  Matrix_Elements;- 

Right  :  Input_Vector  Elements) 
return  Output_Vector_Elements  is  <>; 
with  function  "+"  (Left  :  Output_Vector_Elements; 

Right  :  Output_Vector  Elements) 
return  Output_Vector_Elements  is  <>; 
package  Matrix_Vector_Multiply_Unristrictid  is 

function  (Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors; 

end  Matrix_Vector_Multiply_Unres trie ted; 

pragma  PAGE; 
generic 

type  Matrix_Elements  is  digits  <>; 

type  Input_Vector_Elements  is  digits  <>; 

type  Output_Vector_Elements  is  digits  <>; 
type  Indicesl  is  (<>); 

type  Indices2  is  (<>); 

type  Input_Matrices  is  array  (Indicesl,  Indices2)  of  Matrix_Elements; 
type  Input_Vectors  is  array  (Indices2)  of  Input_JVector_Elements; 
type  OutputVectors  is  array  (Indicesl)  of  OutpuI  Vector  Elements; 
with  function  (Left  :  Matrix_Elements; 

Right  :  Input  Vector  Elements) 
return  Output_Vector_Ilements  is  <>; 
with  function  "+"  (Left  s  Output_Vector_Elements; 

Right  j  Output~Vector  Elements) 
return  Output_Vector  Elements  is  <>; 
function  Matrix_Vector_Multiply_Restricte<J 
(Matrix  :  Input_Matrices; 

Vector  :  Input_Vectors)  return  Output_Vectors; 


pragma  PAGE; 
generic 

type  Input_Vector_Elements  is  digits  <>; 
type  Matrix_Elements  is  digits  <>; 

type  Output_Vector_Elements  is  digits  <>; 
type  Input_Vector_Indices  is  (<>); 
type  Col_Indices  is  (<>); 

type  Rov_Indices  is  (<>); 

type  Output_Vector_Indices  is  (<>); 

type  Input_Vectors~  is  array  (Input_Vector_Indices)  of  Input_Vector_Elements; 
type  InputMatrices  is  array  (Rov_Indices,- 

Col~Indices)  of  Matrix_Elements; 

type  Output_Vectors  is  array  (Output_Vector_Indices)  of  Output_Vector_Elements; 
with  function  (Left  :  Input_Vector_Elements; 

Right  s  Matrix_Elements) 
return  Output_Vector_Elements  is  <>; 
with  function  "+"  (Left  :  Output_Vector_Elements; 

Right  :  0utput_Vector3Elements) 
return  Output_Vector_Elements  is  <>; 
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package  Vector_Matrix_Multiply_Unrestricted  is 

function  (Vector  :  Input_Vectors; 

Matrix  :  Input~Matrices)  return  Output_Vectors; 

end  Vector_Matrix_Multiply_Unrestricted; 

pragma  PAGE; 
generic 

type  Input_Vector_Elements  is  digits  <>; 

type  Matrix_Elements  is  digits  <>; 

type  Output_Vector_Elements  is  digits  <>; 
type  Indicesl  is  (<>); 

type  Indices2  is  (<>); 

type  Input_Vectors  is  array  (Indicesl)  of  Input  Vector_Elements; 
type  Input_Matrices  is  array  (Indicesl,  Indices2j  of  Matrix_Elements; 
type  Output_Vectors  is  array  (Indices2)  of  Output_Vector_Elements; 
with  function  (Left  :  Input_Vector_Elements;“ 

Right  :  Matrix_Elements) 
return  Output_Vector_Elements  is  <>; 
vith  function  "+"  (Left  :  Output_Vector_Elements; 

Right  :  Output_Vector~Elements) 
return  Output  Vector  Elements  is  <>; 
function  Vec t or_Ma t r ix_Mul t i ply_Res t r i c t etl 
(Vector  j  Input_Vectors; 

Matrix  s  Input_Matrices)  return  Output_Vectors; 

pragma  PAGE; 
generic 

type  Left_Vector_Elemeftts  is  digits  <>; 

type  Right_Vector_Elements  is  digits  <>; 

type  Matrix_Elements  is  digits  <>; 

type  Left_Vector_Indices  is  (<>); 

type  Right_Vector_Indices  is  (<>); 

type  Col_Indices  is  (<>); 

type  Rov_Indices  is  (<>); 

type  Left_Vectors  is  array  (Lef t_Vector_Indices) 

of  Left  Vector_Elements; 

type  Right_Vectors  is  array  (RigKt_Vector  Indices) 

of  Right_Vector_Ilements; 
type  Matrices  is  array  (Rov_Tndices7 

Col_Indices)  of  Matrix_Elements; 
with  function  "*"  (Left  :  Lef t_Vector_Elements; 

Right  :  Right_Vector_Elements) 
return  Matrix  Elements  is  <>; 
package  Vector_Vector_Transpose_MuItiply_Unrestricted  is 

function  (Left  :  Left_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices; 

end  Vector_Vector_Transpose_Multiply_Unrestricted; 

pragma  PAGE; 
generic 

type  Lef t_Vector_Elements  is  digits  <>; 
type  Right_Vector_Elements  is  digits  <>; 
type  Matrix_Elements  is  digits  <>; 
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type  Indicesl  is  (<>); 

type  Indices2  is  (<>); 

type  Left_Vectors  is  array  (Indicesl)  of  Left  Vector_Elements; 
type  Right_Vectors  is  array  (Indices2)  of  Righl  Vector_Elements; 
type  Matrices  is  array  (Indicesl,  Indices2)  of  Matrix_Elements; 
vith  function  (Left  :  Lef t_Vector_Elements; 

Right  :  Right  Vector  Elements) 
return  Matrix_Elements  is  <>; 
function  Vector  Vector_Transpose_Multiply_Restricted 
(Lelt  :  Lift_Vectors  ; 

Right  :  Right_Vectors)  return  Matrices; 


is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  (<>) ; 
is  (<>); 
is  (<>); 
is  «>); 


pragma  PAGE; 
generic 

type  Lef t_Elements 
type  Right_Elements 
type  Output_Elements 
type  Lef t_Col_Ind ices 
type  Left_Rov  Indices 
type  Right_CoI_Indices 
type  Right_Rov  Indices 
type  Output_CoT_Indices  is  (<>); 
type  Output_Rov_Indices  is  (<>); 
type  Lef t_Matrices  is  array  (Lef t_Rov_Indices, 

Left  Col_Indices)  of  Left_Elements; 
type  Right_Matrices  is  array  (RigHt_Row_Indices, 

Right  Col~Indices) 
of  Right_Ilements; 

type  Output  Matrices  is  array  (OutputRovIndices, 

Output  Col_Indices) 
of  Output_Elemints; 

Left_Elemints; 

Right_Elements)  return  Output_Elements  is  <>; 
Output_Elements; 

Output~Elements)  return  Output  Elements  is  <>; 


vith  function  (Left 
Right 

vith  function  "+"  (Left 
Right 


package  Matrix  Matrix  Multiply  Unrestricted  is 


function  "*"  (Left  :  Lef t_Matrices; 

Right  :  RighI_Mat rices)  return  Output_Matrices; 

end  Matrix  Matrix  Multiply  Unrestricted; 


pragma  PAGE: 
generic 

type  Lef t_Elements 
type  Right_Elements 
type  Output_Elements 
type  M_Indices 
type  N_Indices 
type  P_Indices 
type  Lef t_Matrices  is  array 
type  Right  Matrices  is  array 


is  digits  <>; 
is  digits  <>; 
is  digits  <>; 
is  «>); 
is  «»; 
is  «»; 

(M_Indices, 
(N  Indices, 


N_Indices)  of  Lef t_Elements; 
PIndices)  of  Right_Elements; 

P  Indices)  of  Output  Elements; 


type  Output_Ma trices  is  array  (M_Indices, 
vith  function  (Left  :  Lef t_Elements; 

Right  :  Right_Elements)  return  Output_Elements  is  O; 
vith  function  "+"  (Left  :  Output_Elements; 

Right  :  Output_Elements)  return  Output_Elements  is  <>; 
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function  Matrix  Matrix_Multiply_Restricted 
(Lelt  :  Left_Matrices; 

Right  :  Right_Matrices)  return  Output_Matrices; 

pragma  PAGE; 
generic 

type  Lef t_Elements  is  digits  <>; 

type  Right_Elements  is  digits  <>; 

type  Output_Elements  is  digits  <>; 

type  Left_Col_Indices  is  (<>); 

type  Left  Row  Indices  is  (<>); 

type  Right_CoI_Indices  is  (<>); 

type  Right_Row  Indices  is  (<>); 

type  Output_CoT_Indices  is  (<>); 

type  Output_Rov_Indices  is  (<>); 

type  Lef t_Matrices  is  array  (Lef t_Rov_Indices, 

Lef t~Col~Ind ices)  of  Lef t_Elements; 
type  Right_Matrices  is  array  (RigHt_Rov_Indices, 

Right_Col_Indices) 
of  Right_Elements; 

type  Output_Matrices  is  array  (Output_Rov_Indices, 

Output_Col_Indices) 
of  Output_Elemints; 

with  function  (Left  :  Lef t_Elements; 

Right  :  Right_Elemants)  return  Output_Elements  is  <>; 
package  Matrix_Matrix_Transpose_Multiply_Unrestricted  is 

function  (Left  :  LeftMatrices; 

Right  :  Right  Matrices)  return  Output  Matrices; 

end  Matrix_Matrix_Transpose_Multiply_Unrestricted; 

pragma  PAGE; 
generic 

type  Left_Elements  is  digits  <>; 

type  Right_Elements  is  digits  <>; 

type  Output_Elements  is  digits  <>; 

type  M_Indices  is  (<>); 

type  N_Indices  is  (<>); 

type  P_Indices  is  (<>); 

type  Lef t_Matrices  is  array  (M_Indices,  N_Indices)  of  Left_Elements; 
type  Right_Matrices  is  array  (PIndices,  N~Indices)  of  Right_Elements; 
type  Output_Matrices  is  array  (M_Indices,  P~Indices)  of  Output_Elements; 
with  function  (Left  :  Lef t_Elements; 

Right  :  Right  Elements)  return  Output_Elements  is  <>; 
function  Matrix  Matrix_Transpose_MuItiply_Restricted 
(Lelt  :  Lef t_Matrices; 

Right  :  Right_Matrices)  return  Output_Matrices; 

pragma  PAGE; 
generic 

type  Lef t_Elements  is  digits  <>; 
type  Right_Elements  is  digits  <>; 
type  Result_Elements  is  digits  <>; 
type  Left_Indices  is  (<>); 
type  Right_Indices  is  (<>); 

type  Left_Vectors  is  array  (Lef t_Indices)  of  Lef t_Elements; 
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type  Right  Vectors  is  array  (Right_Indices)  of  Right_Elements; 
with  function  (Left  :  Left  Elements; 

Right  :  Right_Elements)  return  Result_Elements  is  <>; 
package  Dot_Product_Operations_Unrestricted  is 

function  Dot_Product  (Left  :  Lef t_Vectors; 

Right  :  Right  Vectors)  return  Result_Elements; 

end  Dot_Product_Operations_Unrestricted; 


pragma  PAGE; 
generic 

type  Lef t_Elements  is  digits  <>; 

type  Right_Elements  is  digits  <>; 

type  Result_Elements  is  digits  <>; 

type  Indices  is  (<>); 

type  Left_Vectors  is  array  (Indices)  of  Left_Elements; 

type  Right  Vectors  is  array  (Indices)  of  Right_Elements; 

with  function  "*"  (Left  :  Left_Elements; 

Right  :  RightElements)  return  Result_Elements  is  <>; 
function  Dot_Product_Operations_Restricted  (Left  :  Lef t_Vectors; 

Right  :  Right  Vectors) 
return  Result  Elements; 


pragma  PAGE; 
generi z 

type  Elements 
type  Diagonal_Range 
type  Full_Input_Col_Indices 
type  Full_Input~Row  Indices 
type  Full_Output_CoI_Indices 
type  Full_Output~Row_Indices 
type  Diagonal_Matrices  is 
type  Full_Input_Matrices  is 

type  Full  Output  Matrices  is 


is  digits  <>; 
is  range  <>; 
is  (<>); 
is  (<>) ; 
is  (<>); 
is  (<>); 

array  (Diagonal_Range)  of  Elements; 
array  (Full_Input_Rov_Indices, 

Full_Input~Col_Indices)  of  Elements; 
array  (Full_OutpuT_Rov_Indices, 

Full  Output  Col  Indices)  of  Elements; 


package  Diagonal_Full_Matrix_Add_Unrestricted  is 

function  "+"  (D_Matrix  :  Diagonal_Matrices; 

F_Matrix  :  Full_Input_Matrices)  return  Full_Output_Mat rices; 


end  Di agonal_Full_Ma t r i x_Add_Un r es  t r i  c  t ed ; 


pragma  PAGE; 
generic 

type  Elements  is  digits  <>; 

type  Diagonal_Range  is  range  <>; 

type  Indices  is  (<>); 

type  Diagonal_Matrices  is  array  (Diagonal_Range)  of  Elements; 

type  Full_Matrices  is  array  (Indices,  Indices)  of  Elements; 
function  Diagonal_Full_Ma t r i x_Add_Res t r i c t ed 
(D_Matrix  :  Diagonal_Matrices; 

F  Matrix  :  Full  Matrices)  return  Full  Matrices; 


pragma  PAGE; 
generic 


CAMP  Software  Top-Level  Design  Document 


Page  574 


type  A_Elements  is  digits  <>; 

type  B_Elements  is  digits  <>; 

type  C_Elements  is  digits  <>; 

type  M_Indices  is  (<>); 

type  NIndices  is  (<>); 

type  A_Matrices  is  array(  M_Indices,  N_Indices  )  of  A_Elements; 

type  B_Matrices  is  array(  N_Indices,  N_lndices  )  of  B~Elements; 

type  C_Matrices  is  array(  M~Indices,  M_Indices  )  of  C_Elements; 

with  function  "*"(  Left  :  A_Elements; 

Right  :  B~Elements  )  return  C_Elements  is  <>; 
vith  function  "*"(  Left  :  C~Elements; 

Right  :  A_Elements  )  return  C  Elements  is  <>; 
package  Aba_Trans_Dynam_Sparse_Matrix_Sq_Matrix  is 

function  Aba_Transpose(  A  :  A_Matrices; 

B  ;  B_Matrices  ) 

return  C_Matrices; 

end  Aba_Trans_Dynam_Sparse_Ma  t  r  i  x_Sq_Ma  t  r  i  x ; 
pragma  PAGE; 
generic 

type  Vector_Elements  is  digits  <>; 

type  Matrix_Elements  is  digits  <>; 

type  Scalars  is  digits  <>; 

type  Indices  is  (<>); 

type  Vectors  is  array(  Indices  )  of  VectorElements; 

type  Matrices  is  array(  Indices,  Indices  )  of  MatrixElements; 

vith  function  "*"(  Left  :  Vector  Elements; 

Right  s  Matrix_Elements  ) 

return  Vector  Elements  is  <>; 
with  function  "*"(  Left  s  Vector_Elements; 

Right  :  Vector_Elements  ) 
return  Scalirs  is  <>; 
package  Aba_Trans_Vector_Sq_Matrix  is 
function  Aba_Transpose(  A  :  Vectors; 

B  :  Matrices  )  return  Scalars; 
end  Aba_Trans_Vector_Sq_Matrix; 


pragma  PAGE; 
generic 

type  Vector_Elements  is  digits  <>; 
type  Matrix~Elements  is  digits  <>; 
type  Scalars  is  digits  <>; 

type  Indices  is  (<>); 

type  Vectors  is  array(  Indices  )  of  Vector_Elements; 

type  Matrices  is  array(  Indices,  Indices  )  of  Matrix_Elements; 

with  function  "*"(  Left  :  Vector_Elements; 

Right  :  Scalars  )  return  Vector_Elements  is  <>; 
with  function  "*"(  Left  :  Vector_Elements; 

Right  :  Vector~Elements  )  return  Matrix_Elements  is  <>; 
package  Aba_Trans_Vector_Scalar  is 

function  Aba_Transpose(  A  :  Vectors; 

B  :  Scalars  )  return  Matrices; 
end  Aba  Trans  Vector  Scalar; 


pragma  PAGE; 
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generic 

type  Vector_Elements  is  digits  <>; 
type  Indices  is  (<>); 

type  Vectors  is  array(  Indices  )  of  Vector_Elements; 

package  Column_Matrix_Operations  is 

type  Column_Matrices  is  record 
Col_Vector  s  Vectors; 

Diagonal  :  BOOLEAN; 

Active  Column  :  Indices; 

end  record; 

function  Set_Diagonal_And_Subtract_From_Identi ty 
(  Column  :  Vectors; 

Active_Column  :  Indices  )  return  Column_Matrices; 

generic 

type  B_Matrix_Elements  is  digits  <>; 
type  C_Matrix_Elements  is  digits  <>; 

type  B_Matrices  is  array(  Indices,  Indices  )  of  B_Matrix_Elements; 
type  C_Matrices  is  array(  Indices,  Indices  )  of  C_Matrix_Elements; 
vith  function  "*"(  Left  s  Vector  Elements; 

Right  :  B_MatrIx_Elements  )  return  B_Matrix_Elements  is  <> 
function  Aba_Transpose(  A  ;  Column_Matrices; 

B  :  BMatrlces  )  return  CMatrices; 

generic 

type  BMatrixElements  is  digits  <>; 
type  C_Matrix_Elements  is  digits  <>; 

type  B_Matrices  is  array(  Indices,  Indices  )  of  B_Matrix_Elements; 
type  C_Matrices  is  array(  Indices,  Indices  )  of  C_Matrix_Elements; 
with  function  "*"(  Left  :  Vector  Elements; 

Right  :  B_MatrIx_Elements  )  return  B_Matrix_Elements  is  <> 
function  Aba_Symm_Transpose(  A  T  Column_Matrices; 

B  :  B  Matrices  )  return  C  Matrices; 


end  Column_Matrix  Operations; 


end  General_Vec  t o  r_Ma  t  r i x_Algebr al ; 
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3. 6. 8. 3  STANDARD_TRIG  TLCSC  (CATALOG  #Pl-0) 

This  generic  package  provides  a  standard  set  of  trigonometric  functions. 

The  generic  formal  types  allow  the  user  to  select  the  precision  to  be  used  for 
all  calculations.  Three  types,  radians,  semicircles,  and  degrees,  will  be 
derived  from  the  formal  parameter  'angle'.  These  derived  types  will  be  used  as 
inputs  to  the  sine,  cosine,  and  tangent  subprograms  and  used  as  outputs  from 
the  arcsine,  arccosine,  and  arctangent  subprograms.  Two  types,  sin_cos_ratio 
and  tan  ratio,  will  be  derived  from  the  formal  parameter  ' trig_ratio' .  These 
types  will  be  used  as  inputs  to  the  arcsine,  arccosine,  and  arctangent 
subprograms  and  as  outputs  from  the  sine,  cosine,  and  tangent  subprograms. 


3. 6. 8. 3.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

Type 

Requirements  Allocation  | 

Sin 

function 

R086,  R092,  R098 

Cos 

function 

R087,  R093,  R099 

Sin  Cos 

procedure 

R086,  R087,  R092  • 

R093,  R098,  R099 

Tan 

function 

R088,  R094,  R100 

ArcSin 

function 

R089,  R095,  R101 

ArcCos 

function 

R090,  R096,  R102 

ArcSin  ArcCos 

procedure 

R089,  R090,  R095 

R096,  R101,  R102 

ArcTan 

ArcTan2 

function 

function 

R091,  R097,  R103 

3. 6. 8. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description 

1 

|  Angle 

floating 

|  Used  to  determine  precision  of 

type  Radians,  | 

1 

point  type 

|  Semicircles,  and  Degrees 

1 

|  Trig  Ratio 

floating 

|  Used  to  determine  precision  of 

type  | 

1 

point  type 

|  Sin  Cos  Ratio  and  Tan  Ratio 

1 

Data  objects: 
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The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name  | 

Type  |  Value 

1 

Description 

1 

|  pi_value  | 

Angle  |  N/A 

1 

Value  to  be  used  for  pi  | 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Data  types: 

The  following 

table  describes 

the  data  types  exported  by  this  part: 

|  Name 

|  Base  Type 

1 

Range  | 

Description  | 

|  Radians 

|  Angle 

1 

-00  . .  +00  | 

Radian  unit  of  measurement 

j  Semicircles 

|  Angle 

1 

-00  . .  +00  | 

Semicircle  unit  of  measurement 

Degrees 

Angle 

1 

-00  . .  +00  j 

Degree  unit  of  measurement 

1  Sin  Cos  Ratio  1  Trig  Ratio 

1 

-1  ..  +1  i 

Result  of  a  sine  or  cosine 

1 

1 

1 

function 

Tan  Ratio 

|  Trig  Ratio 

1 

-00  . .  +00  I 

Result  of  a  tangent  function 

1 

1 

1 

function 

3. 6. 8. 3. 3  UTILIZATION  OF  OTHER  ELEMENTS 

At  the  package  body  level,  this  part  with's  the  POLYNOMIALS  package.  This 
package  contains  packages  of  generic  functions  which  provide  various  polynomial 
solutions  to  functions. 


3. 6. 8. 3. 4  LOCAL  ENTITIES 
Subprograms : 

A  set  of  subprograms  in  the  Polynomials  package  will  need  to  be  instantiated  to 
satisfy  the  requirements  of  this  part. 

Packages : 

A  set  of  packages  in  the  Polynomials  package  will  need  to  be  instantiated  to 
satisfy  the  requirements  of  this  part. 


3. 6. 8. 3. 5  INTERRUPTS 


None. 
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3. 6.8. 3.6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Standard_Trig; 

•  *  • 

type  My_Angle  is  digits  12; 

type  My_Trig_Ratio  is  digits  12; 

My_Pi  :  constant  My_Angle  :=  3. 141_592_653_5; 

•  •  • 

package  Trig  is  new  Standard_Trig  (Angle  *>  My_Angle, 

TrigRatio  *>  My_Trig_Ratio, 
PiValue  ->  My_Pi); 


Angle_Value  :  Trig. Radians; 

Sin_Value  :  Trig.Sin_Cos_Ratio; 

•  •  • 

begin 

Sin_Value  Trig.Sin(Angle_Value); 


3. 6. 8. 3. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 

3. 6. 8. 3. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

Type 

|  Input 

|  Output  | 

|  Sin 

function 

radians 

|  sin  cos  ratio 

j  Sin 

ft 

semicircles 

ft  j 

|  Sin 

fl 

degrees 

ff  | 

j  Cos 

function 

radians 

j  sin  cos  ratio  j 

j  Cos 

If 

semicircles 

ft 

j  Cos 

If 

degrees 

ft  j 

Sin  Cos 

procedure 

radians 

j  SIN)  sin  cos  ratio  j 

j  COS)  ” 

Sin_Cos 

semicircles 

j  SIN)  sin  cos  ratio 
|  COS)  "  “ 

Sin  Cos 

»» 

degrees 

|  SIN)  sin  cos  ratio 
|  COS)  " 

Tan 

function 

radians 

tan  ratio 

Tan 

»! 

semisemicircles 

Tan 

ft 

degrees 

ft 

ArcSin 

function 

sin  cos  ratio 

j  radians 

ArcSin 

If 

ft 

j  semicircles 

ArcSin 

If 

If 

j  degrees 

ArcCos 

function 

sin  cos  ratio 

j  radians 

ArcCos 

ft 

If 

|  semicircles 

ArcCos 

If 

ff 

j  degrees 

ArcSin_ 

ArcCos 

procedure 

sin  cos  ratio 

j  ASIN)  radians 
|  ACOS) 

ArcSin_ 

ArcCos 

fl 

ff 

j  ASIN)  semicircles 
|  ACOS)  f 

ArcSin_ 

ArcCos 

ft 

ff 

j  ASIN)  degrees 
|  ACOS)  " 

ArcTar 

function 

tan  ratio 

|  radians 

ArcTan 

ft 

fl 

j  semicircles 

ArcTan 

ff 

ff 

j  degrees 

Arctan2 

generic 

function 

ff 

j  <angles> 

1 

The  following  table  lists  the  catalog  numbers  for  these  parts: 
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|  Name 

Type  | 

Catalog  # 

1 

Sin 

function  1 

P555-0 

1 

Sin 

II 

P556-0 

I 

Sin 

II 

P557-0 

1 

Cos 

function 

P558-0 

1 

Cos 

If 

P559-0 

1 

Cos 

ft 

P560-0 

1 

Sin  Cos 

procedure  j 

i 

P561-0 

1 

1 

Sin  Cos 

n  1 

i 

P562-0 

1 

1 

1 

Sin  Cos 

1 

«  1 
i 

P563-0 

1 

Tan 

function 

P564-0 

1 

1 

Tan 

If  | 

P565-0 

1 

Tan 

ft  1 

P566-0 

1 

ArcSin 

function 

P567-0 

1 

ArcSin 

fl  I 

P568-0 

1 

ArcSin 

II  | 

P569-0 

1 

ArcCos 

function 

P570-0 

1 

ArcCos 

tt  1 

P571-0 

1 

ArcCos 

II  1 

P572-0 

1 

ArcSin_ 

ArcCos 

procedure  j 

P573-0 

1 

ArcSin_ 

ArcCos 

ft 

1 

P574-0 

1 

1 

ArcSin 

"  1 

P575-0 

1 

ArcCoI 

1 

ArcTan 

function 

P576-0 

ArcTan 

ft 

P577-0 

1 

ArcTan 

II  | 

P578-0 

I 

3.6.8. 3.9  PART  DESIGN 

3. 6. 8. 3. 9.1  ARCTAN2  (FUNCTION  SPECIFICATION)  (CATALOG  #P537-0) 

This  function  calculates  the  arctangent  of  two  input  values  defining  the 
endpoint  of  a  vector.  The  result  of  this  function  is  the  angle  between  the 
vector  and  the  positive  x-axis  and  is  in  the  range  equivalent  to  +/-  pi. 

If  both  X  and  Y  equal  0,  this  function  will  return  a  value  of  0. 

3. 6. 8. 3. 9. 1.1  REQUIREMENTS  ALLOCATION 


None 


3. 6. 8. 3. 9. 1.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Angles 
|  Measurements 

floating  point 
floating  point 

Data  type  defining  angular  measurements  | 
Data  type  defining  function  input  types  | 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name  |  Type  |  Description 


Cycle_over_2 


Cycle_over_4 


Angles  |  Number  of  angular  units  of  measurement  in  half  a 
j  circle  (e.g.,  pi/2  for  Radians,  180  for  Degrees, 
j  and  1.0  for  Semicircles) 

Angles  j  Number  of  angular  units  of  measurement  in  1/4  of  a 
j  circle  (e.g.,  pi/4  for  Radians,  90  for  degrees, 
j  and  .5  for  Semicircles) 


Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  "/" 

1 

function 

Division  operator  defining  the  operation: 

Measurements  /  Measurements  =>  Tan  Ratio 

j  Arctan 

function 

Arctangent  function 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

1 

i  x 

|  Measurements 

in 

|  First  element  of 

the  coordinate  pair  | 

1  Y 

j  Measurements 

in 

j  Second  element  of 

the  coordinate  pair  j 

3. 6. 8. 3. 9. 1.3  INTERRUPTS 


None. 
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3. 6. 8. 3. 9. 1.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Standard_Trig; 
with  Basic_Data_Types; 


package  BDT  renames  Basic_Data_Types; 
use  BDT; 
use  Trig; 

function  Atan2  is  new  BDT. Trig. Arctan2 
(Angles  *>  Radians, 

Measurements  =>  Velocities, 
Cycle_over_2  =>  3.14/2.0, 
Cycle_over_4  ->  3.14/4.0); 

•  •  • 

Angle  :  Radians; 

Velocity_Vector  :  Velocity_Vectors  :*  (X  »>  ..., 

Y  =>  •  • . , 

Z  =>  0.0); 

*  •  • 
begin 

Angle  :•  ATan2  (X  ■>  Velocity  Vector(X), 

Y  ->  Velocity~Vector(Y)); 


3. 6. 8. 3. 9. 1.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 3. 9. 1.6  DECOMPOSITION 


Nope. 
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generic 

type  Angle  is  digits  <>; 

type  Trig_Ratio  is  digits  <>; 
Pi_Value  :  in  Angle; 

package  StandardTrig  is 

type  Radians  is  new  Angle; 
type  Semicircles  is  new  Angle; 
type  Degrees  is  nev  Angle; 


type  Sin_Cos  Ratio  is  new  Trig_Ratio  range  -1.0  ..  1.0; 
type  Tan_RatIo  is  new  Trig~Ratio; 

—  — Sine  Junctions 


function  Sin  (Input 
function  Sin  (Input 
function  Sin  (Input 


Radians) 
Semicircles) 
Degrees ) 


return  Sin_Cos_Ratio; 
return  Sin~Cos_Ratio; 
return  Sin-Cos-Ratio; 


—  Catalog  ft P5 5 5-0 

—  Catalog  HP556-0 

—  Catalog  UPS  57-0 


—  —  Cosine  Junctions 


function  Cos  (Input 
function  Cos  (Input 
function  Cos  (Input 


Radians) 

Semicircles) 

Degrees) 


return  Sin_Cos_Ratio; 
return  Sin~Cos_Ratio; 
return  Sin  Cos  Ratio; 


—  Catalog  HP558-0 

—  Catalog  If P5 59-0 

—  Catalog  KP560-0 


—  —  Sine-Cosine  procedures 


procedure  SinCos 

(Input 

in 

Radians; 

—  Catalog  HP 56 1-0 

Sin_Result 

out 

Sin_Cos_Ratio; 

Cos_Result 

out 

Sin  Cos_Ratio); 

procedure  Sin_Cos 

(Input 

in 

Semicircles; 

—  Catalog  HP562-0 

Sin_Result 

out 

Sin_Cos_Ratio; 

Cos~Result 

out 

Sin~Cos_Ratio) ; 

procedure  Sin_Cos 

(Input 

in 

Degrees ; 

—  Catalog  HP563-0 

Sin  Result 

out 

Sin  Cos  Ratio; 

Cos_Result 

out 

Sin~Cos_Ratio) ; 

—  Tangent  functions 

4 

function  Tan  (Input  :  Radians) 

return  Tan_Ratio; 

—  Catalog  HP564-0 

function  Tan  (Input 
function  Tan  (Input 


Semicircles)  return  Tan  Ratio; 


Degrees) 


return  Tan  Ratio; 


■  Catalog  HP 5 65-0 
■Catalog  HP566-0 


—  — Arcsine  functions 


function  Arcsin  (Input 
function  Arcsin  (Input 
function  Arcsin  (Input 


Sin_Cos_Ratio) 

Sin_Cos_Ratio) 

Sin~Cos~Ratio) 


return  Radians; 
return  Semicircles; 
return  Degrees; 


—  Catalog  HP 5 67-0 

—  Catalog  ttl’568-0 

—  Catalog  HP569-0 


—  — Arccosine  Junctions 


function  Arccos  (Input 
function  Arccos  (Input 
function  Arccos  (Input 


Sin_Cos_Ratio) 
Sin_Cos_Ratio) 
Sin  Cos  Ratio) 


return  Radians; 
return  Semicircles; 
return  Degrees; 


—  Catalog  HP570-0 
— Catalog  ft P5  7 1-0 

—  Catalog  HP572-0 


— Arcsine-Arccosine  Junctions 
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procedure  Arcsin_Arccos  (Input 

Arcsin_Result 
Arccos  Result 

procedure  Arcsin_Arccos  (Input 

Arcsin_Result 

Arccos_Result 

procedure  ArcsinArccos  (Input 

Arcsin_Result 
Arccos  Result 


in  Sin_Cos_ Ratio;  — Catalog  ti P5 73-0 
out  Radians"; 
out  Radians); 

in  Sin  Cos  Ratio;  — Catalog  HP574-0 
out  Semicircles; 
out  Semicircles); 

in  Sin_Cos_Ratio;  — Catalog  ttP57 5-0 
out  DegreesJ 
out  Degrees); 


—  — Arctangent  functions 

function  Arctan  (Input  :  Tan_Ratio)  return  Radians;  — Catalog  HP576-0 

function  Arctan  (Input  :  Tan_Ratio)  return  Semicircles;  — Catalog  HP577-0 

function  Arctan  (Input  :  Tan~Ratio)  return  Degrees;  — Catalog  HP578-0 

pragma  PAGE; 
generic 

type  Angles  is  digits  <>; 

type  Measurements  is  digits  <>; 

Cycle_0ver_2  s  in  Angles; 

Cycle  Over  4  :  in  Angles; 

with  function  "/"  (Left  :  Measurements; 

Right  :  Measurements)  return  Tan  Ratio  is  <>; 
vith  function  Arctan  (Input  :  Tan_Ratio)  return  Angles  is  <>; 
function  Arctan2  (X  :  Measurements; 

Y  s  Measurements)  return  Angles; 


end  StandardTrig; 
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3. 6. 8. 4  GEOMETRIC_OPERATIONS  TLCSC  (CATALOG  SP113-0) 

This  part  contains  the  CAMP  routines  which  perform  geometric  functions  relative 
to  the  Earth  frame. 


3 . 6 . 8 . 4 . 1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  |  Requirements  Allocation  | 


Unit  Radial  Vector 

1 

R168 

1 

Unit  Normal  Vector 

I 

Compute  Segment  and  Unit  Normal  Vector 

1 

R169 

1 

Compute  Segment  and  Unit  Normal 

I 

1 

with  Arcsin 

! 

1 

Great  Circle_Arc  Length 

1 

R082 

1 

3. 6. 8. 4. 2  INPUT/OUTPUT 
None. 

3. 6. 8. 4. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 8. 4. 4  LOCAL  ENTITIES 
None. 

3. 6. 8. 4. 5  INTERRUPTS 


None. 

3. 6. 8. 4. 6  TIMING  AND  SEQUENCING 
None. 

3. 6. 8. 4. 7  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by t this  TLCSC. 
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3. 6. 8. 4. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type  |  Description 


Unit_Radial_Vector 

Uni t_Normal_Vector 

Compute  Segment 
and_UnT  t_NormaI_ 
Vector 

Compute  Segment 
and_Un!t  NormaI_ 
Vector_wTth_ 

Arcs in 

Great_Circle_Arc_ 

Length 


generic 

function 

generic 

function 

generic 

procedure 

generic 

procedure 


generic 

package 


Computes  the  unit  radial  vector  of  a 
point 

Computes  the  unit  normal  vector  for  a 
course  segment 

Computes  the  unit  normal  vector  and  arc 
length  of  a  course  segment  using  the 
assumption  alpha-sin(alpha) 

Computes  the  unit  normal  vector  and  arc 
length  of  a  course  segment  NOT  using 
the  assumption  alpha-sin(alpha) 

Computes  the  great  circle  arc  length 
between  two  points 


3. 6. 8. 4. 9  PART  DESIGN 

3. 6. 8. 4. 9.  T  UNIT_RADIAL_VECTOR  (CATALOG  #P114-0) 

This  part  computes  the  unit  radial  vector  of  a  point  given  the  point's  latitude 
and  longitude.  It  extends  outward  from  the  origin  of  the  Earth-  centered 
reference  frame  towards  the  point  whose  latitude  and  longitude  are  given. 

The  computations  performed  by  this  part  are  as  follows: 

UR(X)  :«  Cos(Lat)  *  Cos(Long) 

UR(Y)  :*  Cos(Lat)  *  Sin(Long) 

UR(Z)  :=  Sin(Lat) 


3. 6. 8. 4. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R168. 


3. 6. 8. 4. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

1 

Type 

|  Description 

"l 

|  Indices 

1 

1 

discrete 

type 

|  Used  to  dimension  arrays 

1 

j  Earth  Positions 

1 

1 

floating 

point 

|  Data  type  of  longitude/latitude  values 

1 

Sin  Cos  Ratio 

1 

floating 

|  Data  type  of  results  of  sine/cosine 

1 

point 

j  routines 

|  Unit  Vectors 

1 

1 

array 

j  One-dimensional,  3-element  array  of 
j  Sin  Cos  Ratio  dimensioned  by  Indices 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

Description 

1 

1  x 

|  Indices 

' FIRST 

Index  into  first  element 

of  array  | 

1  Y 

j  Indices 

'SUCC(X) 

Index  into  second  element 

of  array 

1  z 

j  Indices 

'LAST 

Index  into  third  element 

of  array 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  Sin_Cos 

procedure 

Returns  the  sine  and  cosine  of  an  input  value  | 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

Lat_of_Point 

|  Earth  Positions 

i  ~  1 

1  In 

|  Latitude  of  point  for  which  a  | 

unit  radial  vector  is  desired  j 

Long_of_Point 

|  Earth  Positions 

1 

1  In 

1 

|  Latitude  of  point  for  which  a 
j  unit  radial  vector  is  desired  j 

3. 6. 8. 4. 9. 1.3  INTERRUPTS 


None. 
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3. 6. 8. 4. 9. 1.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Basic_Data_Types j  use  Basic_Data_Types; 

with  Geometric_Operations; 

with  Coordinate_Vector_Matrix_Algebra; 

•  •  • 

package  BDT  renames  Basic_Data_Types; 

package  Geo  renames  Geometric_Operations ; 

package  CVMA  renames  Coordinati_Vector_Matrix_Algebra; 

•  •  • 

type  Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_V_Opns  is  new  CVMA.Vector_Operations  ... 
subtype  Unit_Vectors  is  Unit_V_0pns. Vectors; 

•  •  • 

function  U_Radial_Vector  is  new 

Geo.Unit_Radial_Vector 

(Indices  =>  Indices, 

Earth_Positions  *>  BDT.Earth_Position_Radians, 

Sin  Cos_Ratio  ■>  BDT. Trig. Sin_Cos_Ratio, 

Unit_Vectors  ■>  Unit  VectorsT 

Sin_Cos  ■>  BDT.Trig.Sin_Cos); 

•  •  • 

Lat  j  BDT.EarthPositionRadians; 

Long  :  BDT.Earth_Positions_Radians; 

UR_A  :  Unit_Vectors; 

•  •  • 

begin 
•  •  • 

UR_A  URadialVector 

(Latof  Point  »>  Lat, 

Long_oI_Point  «>  Long): 


3. 6. 8. 4. 9. 1.3  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 4. 9. 1.6  DECOMPOSITION 
None. 


3. 6. 8. 4. 9. 2  UNIT_N0RMAL_VECT0R  (CATALOG  #P115-0) 

This  function  computes  the  segment  unit  normal  vector  for  a  course  segment 
given  the  unit  radial  vectors  for  the  two  points  defining  the  course  segment. 
The  computations  performed  by  this  part  are  as  follows: 

UN_B  :=  UR_B  X  UR_A  /  Length (UR_B  X  UR_A) 
where~UN_B  :==  unit  normal  vector 

UR_B  :**  unit  radial  vector  to  point  B 
UR_A  unit  radial  vector  to  point  A 
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3. 6. 8. 4. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R169. 


3. 6. 8. 4. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Unit  Vectors 

1 

|  Sin  Cos  Ratio 

1 

|  private 

1 

|  floating 
|  point  type 

|  One-dimensional,  3-element  array  of 
j  Sin_Cos_Ratio 

j  Datatype  of  results  of  sine/cosine  routines 

1 

Subprograms : 

The  following  table  describes 
part: 

the  generic  formal  subroutines  required  by  this 

|  Name  | 

1  Type  | 

Description  | 

1  "/"  | 
1  1 
|  Cross_Product  | 
j  Vector_Length  | 

|  function  | 

1 

function  j 
function  j 

Division  operator  defining  the  operation: 
Unit_Vectors  /  Sin  Cos_Ratio  *>  Unit_Vectors 
Cross  product  function 

Vector  length  function 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Unit  Radial  A 

i 

Unit  Vectors 

In 

|  Unit  radial  vector  defining  one  | 

|  endpoint  of  the  course  segment 

|  Unit  Radial  B 

1 

Unit  Vectors 

In 

|  Unit  radial  vector  defining  one  j 

j  endpoint  of  the  course  segment  j 

3. 6. 8. 4. 9. 2. 3  INTERRUPTS 


None. 
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3. 6. 8. 4. 9. 2. 4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 

with  Basic  DataTypes;  use  Basic_Data_Types; 

with  Geometric_Operations; 

with  Coordinati_Vector_Matrix_Algebra; 

•  •  • 

package  BDT  renames  Basic_Data_Types; 

package  Geo  renames  Geometric_Operations; 

package  CVMA  renames  Coordinate_Vector_Matrix_Algebra; 


type  Indices  is  (X,  Y,  Z); 

•  ■  • 

package  Unit_V_Opns  is  new  CVMA.Vector_Operations  ... 
subtype  Unit_Vectors  is  Unit_V_Opns. Vectors; 


function  My_Cross_Product  is  new  CVMA. Cross  Product  ... 

package  Vector_Scalar_Opns  is  new  CVMA. Vector_Scalar_Operations  ... 


function  U_Normal_Vector  is  new 

Geo. Unit  Normal  Vector 


(Unit_Vectors 

SinCosRatio 

w /n 

CrossProduct 

VectorLength 

•  •  • 

UR_A  s  Uni  t_Vec tors;  . 

URJB  :  Unit_Vectors; 

UN_B  :  Unit_Vectors; 

•  •  • 

begin 
•  •  • 

UN_B  :  =  U_Normal_Vector 
(Unit_Radial 
Unit  Radial 


«>  Unit_Vectors, 

■>  BDT. Trig. Sin_Cos_Ratio, 

«>  Vector_Scalar_Opns."/", 

«>  My  Cross  Product , 

->  Unlt  V  Opns.Vector  Length) ; 


A  =>  UR_A, 

B  =>  UR  B); 


3. 6. 8. 4. 9. 2. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 4. 9. 2. 6  DECOMPOSITION 


None. 


3. 6. 8. 4. 9. 3  COMPUTE_SEGMENT_AND_UNIT_NORMAL_VECTOR  (CATALOG  #P116-0) 

This  procedure  computes  the  segment  unit  normal  vector  for  a  course  segment  and 
the  length  of  the  course  segment,  given  the  unit  radial  vectors  for  the  2 
points  defining  the  course  segment. 

The  computations  performed  by  this  part  are  as  follows: 
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UN_2 
Seg_Dist 
where  UN  2 
UR~2 
UR“1 


UR  2  X  UR  1  /  Length(UR  2  X  UR_1) 
Earth  Radius  *  Length(UR_2  X  UR_1) 
«  unit  normal  vector 
==  unit  radial  vector  to  point  2 
—  unit  radial  vector  to  point  1 


Seg  Dist  :>>  great  circle  arc  length  between  points  1  and  2 


3. 6. 8. 4. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R169. 


3. 6. 8. 4. 9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Indices 

Earth_ 
Distances 
Segment_ 
Distances  * 
Sin_Cos_Ratio 

Unit  Vectors 


discrete 

type 

floating 
point  type 
floating 
point  type 
floating 
point  type 
array 


Used  to  dimension  Unit_Vectors;  this  type 
should  have  a  length  of  3 
Data  type  used  to  define  distance 
measurements  involving  the  Earth's  radius 
Data  type  used  to  define  distance  measure- 
menets  involving  nagivation  segments 
Data  type  used  to  define  results  of  sine/ 
cosine  operations 

One-dimensional,  3-element  array  indexed  by 
Indices  and  containing  Sin_Cos_Ratio 
elements 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Earth_Radius 

Ear th_Di stances 

N/A 

|  Radius  of  the  Earth  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 
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|  Name  |  Type  |  Description 


n*ii 


function 


?!  j  II 


function 


Cross_Product  j  function 
Vector_Length  j  function 


Operator  defining  the  operation: 
Earth_Distances  *  Sin_Cos_Ratio  => 
Segment_Distances 
Operator  defining  the  operation: 

Unit  Vectors  /  Sin_Cos_Ratio  =>  Unit  Vectors 
Calculates  the  cross  product  of  two  units 
Calculates  the  length  of  a  vector 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


1 

Name 

1 

Type 

1 

Mode 

|  Description 

1 

1 

Unit  Radiall 

1 

Unit  Vectors 

1 

in 

|  Unit  radial  vector  to  waypoint  B 

1 

1 

Unit  Radial2 

1 

Unit  Vectors 

1 

in 

j  Unit  radial  vector  to  waypoint  C 

1 

1 

Unit  Normal2 

1 

Unit  Vectors 

1 

out 

j  Segment  unit  normal  vector 

1 

1 

Segment 

1 

Segment 

1 

out 

j  Great  circle  arc  length  between 

1 

1 

Distance 

1 

Distances 

1 

j  points  1  and  2 

1 

3. 6. 8. 4. 9. 3. 3  INTERRUPTS 


None. 


3. 6. 8. 4. 9. 3. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Geometric_Parts; 

with  Basic  Data_Types;  use  Basic_Data_Types; 
with  CoordTnate_Vector_Matrix  AlgebraT 
wi th  WGS72_Ellipsoid_ EngineerIng_Data ; 

•  •  • 

package  Geo  renames  Geometric_Parts; 

package  BDT  renames  Basic  Data_Types; 

package  CVMA  renames  CoordInate_Vector_Matrix  Algebra; 

package  VGS72  renames  WGS72_Ellipsoid_Engineering_Data; 

type  Indices  is  (X,  Y,  Z); 

•  •  • 

package  Unit_V_Opns  is  new  CVMA.Vector_Operations  ... 
subtype  UnitVectors  is  Uni t_V_0pns. Vectors; 

package  Vector_Scalar_Opns  is  new  CVMA. Vector_Scalar_Operations  ... 
•  •  • 

function  Cross_Prod  is  new  CVMA.Cross_Product  ... 

•  •  • 

procedure  Comp_Segment_and_U  Nl_Vector  is  new 

Geo .  Compu  t  e_Segmen  t_and_Un  i  t_Nor  ma  l_Vec  tor 
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I 

(Indices 
Earth_Distances 
Segmen  t_Di s  t ances 
Sin_Cos_Ratio 
Unit  Vectors 
EartH_Radius 

II  f  II 

Cross_Product 
Vector_Length 

•  •  • 

UR_B  :  Uni t_Vec tors; 

UR  C  :  Unit_Vectors; 

UN^C  :  Unit_Vectors; 

BC_Dist  :  BDT. Meters; 

•  •  • 

begin 

t  •  • 

BC  Dist  Comp  Segment  and  U_N1  Vector 
(UnitRadTalT  "  *>  UR_B, 
Unit_Radial  2  «>  UR  C, 

UnitNormal'2  *>  UN~C, 
Segmen t_Di stance  *>  BC_Dist); 


3. 6. 8. 4. 9. 3. 5  GLOBAL  PROCESSING 

* 

|  There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 4. 9. 3. 6  DECOMPOSITION 
None. 


3. 6.8.4. 9.4  COMPUTE_SEGMENT_AND_UNIT_NORMAL_VECTOR_WITH_ARCSIN  (CATALOG  #P1049-0) 

This  procedure  computes  the  segment  unit  normal  vector  for  a  course  segment  and 
the  length  of  the  course  segment,  given  the  unit  radial  vectors  for  the  2 
points  defining  the  course  segment. 

The  computations  performed  by  this  part  are  as  follows: 

UN_2  :«  UR_2  X  UR  1  /  Length (UR_2  X  UR_1) 

Seg_Dist  :«  Earth_RadTus  *  Arcsin(Length(UR_2  X  UR_1)) 
where  UN_2  :■==  unit  normal  vector 

UR~2  :=*■  unit  radial  vector  to  point  2 

UR  1  : «  unit  radial  vector  to  point  1 

Seg_Dist  great  circle  arc  length  between  points  1  and  2 


3. 6. 8. 4. 9. 4.1  REQUIREMENTS  ALLOCATION 
None. 


* 


=>  Indices, 

=>  BDT. Meters, 

=>  BDT. Meters, 

=>  BDT. Trig. Sin_Cos_Ratio, 

=>  Unit  Vectors, 

*>  VGS7l.Semimajor_Axis, 

=>  Vector_Scalar_Opns. "/" , 

*=>  Cross  Prod, 

=>  Unit_V_Opns.Vector_Length) ; 
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3. 6. 8. 4. 9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Indices 

|  discrete 

|  Used  to  dimension  Unit  Vectors;  this  type 

1 

1  type 

j  should  have  a  length  of  3 

|  Earth 

|  floating 

j  Data  type  used  to  define  distance 

j  Distances 

j  point  type 

|  measurements  involving  the  Earth's  radius 

I  Segment 

j  floating 

j  Data  type  used  to  define  distance  measure- 

i  Distances 

j  point  type 

j  menets  involving  nagivation  segments 

Sin  Cos  Ratio 

j . floating 

j  Data  type  used  to  define  results  of  sine/ 

j  point  type 

j  cosine  operations 

|  Unit  Vectors 

j  array 

j  One-dimensional,  3-element  array  indexed  by 

1 

j  Indices  and  containing  Sin  Cos  Ratio 

1 

1 

j  elements 

Data  objects: 

The  following  table  describes 

the  generic  formal  objects  required  by  this  part 

|  Name 

Type 

|  Value  |  Description  | 

|  Earth_Radius 

Ear th_Di stances  |  N/A  |  Radius  of  the  Earth  | 

Subprograms : 

The  following  table  describes 

the  generic  formal  subroutines  required  by  this 

part : 

|  Name 

1  Type  | 

Description  | 

|  function  ! 

Operator  defining  the  operation: 

tf  /ft 

i  i 

i  i 

|  function  | 

Earth_Distances  *  Sin_Cos_Ratio  => 

Segment_Di stances 

Operator_def ining  the  operation: 

Arcsin 

:  i 

|  function  j 

Unit  Vectors  /  Sin  Cos_Ratio  =>  Unit  Vectors 
Calculates  the  arcsine  of  an  input  value 

Cross  Product 

j  function  j 

Calculates  the  cross  product  of  two  units 

Vector_Length 

j  function  j 

Calculates  the  length  of  a  vector 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type 

! 

Mode 

|  Description 

1 

|  Unit  Radiall 

1  Unit  Vectors 

1 

in 

|  Unit  radial  vector  to  waypoint  B 

1 

|  Unit  Radial2 

|  Unit  Vectors 

1 

in 

j  Unit  radial  vector  to  waypoint  C 

1 

|  Unit  Normal2 

|  Unit  Vectors 

1 

out 

j  Segment  unit  normal  vector 

1 

j  Segmen  t 

I  Segment 

out 

j  Great  circle  arc  length  between 

1 

|  Distance 

j  Distances 

I 

j  points  1  and  2 

1 

3. 6. 8. 4. 9. 4. 3  INTERRUPTS 

None. 


3. 6. 8. 4. 9. 4. 4  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 
with  Geometric_Parts; 

with  Basic  Data_Types;  use  Basic_Data_Types; 
with  CoordInate_Vector_Matrix  Algebra; 
with  WGS72_Ellipsoid_EngineerTng_Data; 

•  •  • 

package  Geo  renames  Geometric_Parts; 

■  package  BDT  renames  Basic  DataJFypes; 
package  CVMA  renames  CoordTnate~Vector_Matrix  Algebra; 
package  VGS72  renames  VGS72_EllipsoidJ2ngineerIng_Data; 

•  •  • 

type  Indices  is  (X,  Y,  Z); 

#  •  • 

package  Unit_V_Opns  is  new  CVMA. Vector  Operations  ... 
subtype  Unit_Vectors  is  Unit_V_Opns. Vectors; 

package  Vector_Scalar_Opns  is  new  CVMA.Vector_Scalar_Operations  ... 
•  •  • 

function  Cross_Prod  is  new  CVMA.Cross_Product  ... 

•  •  • 

procedure  Comp_Segment_and_U_Nl_Vector  is  new 

Geo. Compute  Segmenl_and  Unit  Normal_Vector_with_Arcsin 


UR_B 
UR  C 
UN_C 
BC~Dist 


(Indices 
Earth_Distances 
Radians 

Segmen  t_Di s  t ances 
Sin_Cos_Ratio 
Unil  Vectors 
EartH  Radius 

»i  y»i 

Cross_Product 

Vector_Length 

Unit_Vectors; 

UnitJ/ectors; 

Unit~Vectors; 

BDT. Meters; 


=>  Indices, 

->  BDT. Meters, 

=>  BDT. Trig. Radians, 

=>  BDT. Meters, 

=>  BDT. Trig. Sin_Cos_Ratio, 

=>  Unit  Vectors, 

=>  VGS7Z.Semimajor_Axis, 

=>  Vector_Scalar_Opns."/", 

=>  Cross_Prod, 

=>  Unit_V  Opns.Vector_Length) ; 
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begin 

BC_Dist  :=  Comp  Segment_and_U_Nl_Vector 
(Onit_Radial_l  =>  UR_B, 

Unit_Radial_2  =>  UR_C, 

Unit  Normal  2  =>  UN  C. 

Segment_Distance  =>  BC~Dist); 


3. 6. 8. 4. 9. 4. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 4. 9. 4. 6  DECOMPOSITION 


None. 


3. 6. 8. 4. 9. 5  GREAT_CIRCLE_ARC_LENGTH  (CATALOG  #P117-0) 

This  package  contains  the  function  required  to  compute  the  great  circle  arc 
length  of  a  course  segment  given  the  latitude  and  longitude  of  the  two 
endpoints. 

The  circle  arc  length  equals:  circle  radius  *  angle  subtended  by  the  arc 
To  define  the  angle  subtended  by  the  arc  this  part  calculates  the  unit 
radial  vectors  to  the  end  points  of  the  arc.  Since  the  radials  vectors 
have  a  length  of  1  and  since  it  is  assumed  the  angle  subtended  by  the 
arc  is  "relatively  small",  the  following  is  true: 
arc  length  :«  radius  *  angle 

:«  radius  *  sin(angle) 

:*  radius  *  (l)*(l)*sin(angle) 

:«  radius  *  (length  of  UR_A)*(length  of  UR_B)  *  sin(angle) 

:«  radius  *  length(URB  X  UR_A) 


3. 6. 8. 4. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirements  R082. 


3. 6. 8. 4. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 


Type  |  Description 


Earth_ 

Distances 

Segment_ 

Distances 

Earth_Positions 

Sin  Cos  Ratio 


floating 
point  type 
floating 
point  type 
floating 
point  type 
floating 
point  type 


Data  type  used  to  define  distance 
measurements  involving  the  Earth's  radius 
Data  type  used  to  define  distance  measure- 
menets  involving  nagivation  segments 
Data  type  of  longitude/latitude 
measurements 

Data  type  of  results  of  sine/cosine 
routines 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Value 

j  Description  | 

|  Earth  Radius 

|  Earth  Distances 

|  N/A 

|  Radius  of  the  Earth  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

| 

I 

function 

1  Sqrt 

function 

j  Sin  Cos 

procedure 

|  Description 


Operator  defining  the  operation: 
Earth_Distances  *  Sin_Cos_Ratio  -> 

Segmen t_Di s tances 
Square  root  function 

Returns  the  sine  and  cosine  of  an  input  value 


3. 6, 8. 4. 9. 5. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 4. 9. 5. 4  INTERRUPTS 


None. 


3. 6. 8. 4. 9. 5. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Basic_Data_Types;  use  Basic_Data_Types; 
with  General  Purpose  Math; 
with  Geometric  Operations; 
with  WGS72_EllIpsoid_Engineer ing_Data ; 
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package  BDT  renames  Basi c_Data_Types j 

package  GPMath  renames  General  Purpose_Math; 

package  Geo  renames  Geometrlc_0peralions; 

package  WGS72  renames  VGS72_EllIpsoid_Engineering_Data; 


package  Sq_Rt  is  new  GPMath. Square_Root  ... 


package  GC_Arc_Length  is  new 

GeoTGreat_Circle_Arc  Length 

(Earth_Distances  -  ■ 

Segment_Distances 
Earth_Positions  = 

Sin_Cos_Ratio  = 

Earth_Radius  « 

Sqrt 

Sin  Cos  > 


>  BDT. Meters, 

>  BDT. Meters, 

>  BDT. Earth  Position  Meters 

>  BDT. Trig. Sin  Cos  Ratio, 

>  VGS72.SemimaJor_Axix, 

>  Sq  Rt.Sqrt, 

>  BDT.Trig.Sin_Cos); 


f 


Lat_A  :  BDT.Earth_Position_Radians; 
Lat_B  s  BDT.Earth_Position_Radians; 
Long_A  :  BDT.Earth_Position_Radians ; 
Long  B  :  BDT.Earth_Position_Radians ; 
Arc  Length  :  BDT. Meters; 


begin 
•  •  • 

ArcLength 

GC_Arc_Length. Compute 

(Latitude_A  ->  Lat_A, 
Lati tude_B  «>  Lat~B, 
Longitude_A  «=>  Long_A, 
Longitude~B  «=>  Long_B); 


3. 6. 8. 4. 9. 5. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 4. 9. 5. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  parts 


|  Name 

Type 

|  Description  | 

|  Compute 

function 

|  Computes  the  great  circle  arc  length  | 

3. 6. 8. 4. 9.5.8  PART  DESIGN 


None. 
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package  Geometric_Operations  is 


pragma  PAGE; 
generic 

type  Indices 
type  Earth_Positions 
type  Sin_Cos_Ratio 
type  Unit  Vectors 
X  :  in  Indices 
Y  :  in  Indices 
Z  :  in  Indices 
vith  procedure  SinCos  (Input 

Sine 

Cosine 

function  Unit  Radial  Vector 


is  (<>); 
is  digits  <>; 
is  digits  <>; 
is  array  (Indices)  of 
=  Indices'FIRST; 

=  Indices' SUCC(X); 
Indices 'LAST; 


Sin  Cos  Ratio; 


in  Earth_Positions; 

out  Sin_Cos_Ratio; 

out  Sin  Cos  Ratio)  is  <>; 


(Lat_0f  Point  :  Earth_Positions ; 

Long_0f_Point  :  Earth_Positions)  return  Unit_Vectors; 


pragma  PAGE; 
generic 

type  Unit_Vectors  is  private; 

type  Sin_Cos_Ratio  is  digits  <>; 

with  function  "/"  (Left  :  Unit_Vectors; 

Right  :  Sin_Cos_Ratio)  return  Unit_Vectors  is  <>; 
with  function  Cross_Product  (Left  :  Unit_Vectors; 

Right  :  Uni t_Vec tors) 
return  Unit  Vectors  is  <>; 
with  function  VectorLength  (Input  :  UnltVectors) 

return  SinCosRatio  is  <>; 

function  Unit_Normal  Vector 

(Unit_Ra3ial_A  :  Unit_Vectors; 

Unit  Radial  B  :  Unit”Vectors)  return  Unit  Vectors; 


pragma  PAGE; 
generic 

type  Indices  is  (<>); 

type  Ear th_Di stances  is  digits  <>;  , 

type  Segment_Di stances  is  digits  <>; 

type  Sin_Cos_Ratio  is  digits  <>; 

type  Unit  Vectors  is  array  (Indices)  of  Sin_Cos_Ratio; 

Earth  Radius  :  in  Earth_Distances; 

with  function  (Left  :  Earth_Distances; 

Right  :  Sin_Cos_Ratio)  return  Segment_Di stances  is  <>; 
with  function  "/"  (Left  :  Unit_Vectors; 

Right  :  Sin_Cos_Ratio)  return  Unit_Vectors  is  <>; 
with  function  Cross_Product  (Left  :  Unit_Vectors; 

Right  :  Unit_Vectors) 
return  Unit  Vectors  is  <>; 
with  function  Vector_Length  (Input  :  UnTt_Vectors) 

return  Sin_Cos_Ratio  is  <>; 
procedure  Compute_Segment  And_Unit_Normal_Vector 

(UniF Radial!  ~  :  in  Unit_Vectors; 

Unit~Radial2  :  in  Unit_Vectors; 

Unit~Normal2  s  out  Unit_Vectors; 

Segment_Distance  :  out  Segmint_Distances); 


pragma  PAGE; 
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generic 

type  Indices  is  (<>); 

type  Earth_Distances  is  digits  <>; 

type  Radians  is  digits  <>; 

type  Segment_Di stances  is  digits  <>; 

type  Sin_Cos~Ratio  is  digits  <>; 

type  Unit  Vectors  is  array  (Indices)  of  Sin_Cos_Ratio; 

Earth  Radius  :  in  Earth_Distances; 

vith  function  (Left  :  Earth_Distances; 

Right  :  Radians)  return  Segment_Di stances  is  <>; 
vith  function  "/"  (Left  :  Unit_Vectors; 

Right  :  Sin_Cos_Ratio)  return  Unit_Vectors  is  <>; 
vith  function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Rldians  is  <>; 
vith  function  Cross_Product  (Left  :  Uni t_Vec tors; 

Right  :  Unit~Vectors) 
return  Unit  Vectors  is  <>; 
vith  function  Vector_Length  (Input  s  UnTt_Vectors) 

return  Sin_Cos_Ratio  is  <>; 

procedure  Compute_ Segment  And_Unit_Normal_Vector_With_Arcsin 
(Unit_Radialf  :  in  Uni tVectors;- 

Unit_Radial2  :  in  Uni t_Vec tors; 

Unit_Normal2  :  out  Uni t_Vec tors; 

Segment_Distance  :  out  Segment_Distances) ; 

pragna  PAGE; 
generic 

type  EarthDistances  is  digits  <>; 
type  EarthPositions  is  digits  <>; 
type  Segment_Di stances  is  digits  <>; 
type  Sin  Cos_Ratio  is  digits  <>; 

Earth  Radius  :  in  Earth_Distances; 

vith  function  (Left  :  Earth_Distances; 

Right  :  Sin  Cos_Ratio)  return  Segment_Di stances  is  <>; 
vith  function  Sqrt  (Input  s  Sln_Cos_Ratio)  return  Sin_Cos_Ratio  is  <>; 
vith  procedure  SinCos  (Input  :  in  ~Earth_Positions; 

Sine  :  out  Sin_Cos_Ratio; 

Cosine  :  out  Sin  Cos_Ratio)  is  <>; 
package  Great_Circle_Arc_Length  is 

function  Compute  (Latitude_A  :  EarthPositions; 

Latitude_B  :  Earth_Positions; 

Longitude  A  :  Earth  Positions; 

Longitude~B  :  Earth_Positions)  return  Segment_Distances; 
end  Great_Circle_Arc_Length; 


end  Geometric_Operations; 
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